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strategic  vision  of  seamless  logistics  support.  To  support  this  vision,  CASCOM  has 
proposed  the  implementation  of  the  Integrated  Combat  Service  Support  System  (ICS3)  as 
the  Army's  single  seamless  combat  service  support  management  system.  ICS3  will  be  a 
"system  of  systems"  that  automates  the  combat  service  support  disciplines  of  man,  arm, 
fuel,  fix,  move,  and  sustain.  Specifically,  the  combat  service  support  discipline  of  fuel 
will  be  incorporated  in  ICS3  as  the  Fuel  Automated  Subsystem. 

This  thesis  analyzes  current  Army  petroleum  operations,  identifies  petroleum 
accountability/management  procedures  as  the  target  domain  for  automation,  and  develops 
the  respective  software  system  requirements.  From  the  software  system  requirements,  a 
prototype  for  the  Fuel  Automated  Subsystem  is  successfully  developed  using  the 
Computer  Aided  Prototyping  System  (CAPS)  to  illustrate  the  system's  viability. 
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I.  INTRODUCTION 

A.  GENERAL  BACKGROUND 

The  United  States  Army  is  currently  developing  and  testing  Force  XXI,  an 
attempt  to  redesign  itself  by  the  early  years  of  the  2 1  st  century  to  incorporate  digital 
technology  and  advanced  weaponry.  Accordingly,  over  the  next  five  years  the  Army  is 
scheduled  to  devote  approximately  one-third  of  its  research,  development  and  acquisition 
budget  ($28  billion  of  $87  billion)  to  solely  support  these  digital  technology  initiatives 
[Ref.  1].  The  main  proponent  for  Force  XXI  is  the  United  States  Army  Training  and 
Doctrine  Command  (TRADOC),  headquartered  at  Fort  Monroe,  Virginia.  TRADOC  is 
directly  responsible  for  designing  the  tactical  units  of  the  future  and  developing/writing 
the  doctrine  by  which  the  Army  will  fight.  In  February  1996,  TRADOC  published 
Pamphlet  525-5,  Force  XXI  Operations,  which  mandated  that  the  combat  service  support 
disciplines  of  man,  arm,  fuel,  fix,  move  and  sustain  be  automated  to  the  greatest  extent 
possible.  Concurrently,  the  strategic  logistics  vision  underpinning  the  combat  service 
support  system  of  the  future  was  jointly  developed  by  the  Deputy  Chief  of  Staff  for 
Logistics  (DC SLOG),  the  United  States  Army  Materiel  Command  (AMC),  and  the 
Combined  Arms  Support  Command  (CASCOM).  Their  future  strategic  logistics  vision  is 
one  of  "seamless  support:  a  continuum  of  support  consisting  of  soldiers  and  civilians, 
business  practices,  and  an  intelligent  information  network  of  interrelated  systems  that 
provides  world  class  support  to  the  Army  across  the  entire  spectrum  of  military 
operations"  [Ref.  2].  The  concept  of  seamless  support  encompasses  an  integrated  effort 
to  streamline  and  unify  the  current  combat  service  support  system  that  is  complex.   The 
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objective  of  seamless  support  is  to  allow  the  war-fighter  to  focus  on  planning  and 
executing  the  battle  while  freeing  him  from  the  complexities  of  combat  service  support 
(CSS)  operations  and  systems. 

To  support  the  future  combat  service  support  vision,  CASCOM  has  proposed  the 
implementation  of  the  Integrated  Combat  Service  Support  System  (ICS3)  as  the  Army's 
single,  seamless,  integrated  and  interactive  CSS  automated  management  system.  ICS3 
will  be  a  "system  of  systems"  incorporating  all  of  the  CSS  disciplines  of  manning, 
arming,  fueling,  fixing,  moving  and  sustaining  the  force.  Specifically,  the  CSS  discipline 
of  fueling  will  be  incorporated  in  ICS3  as  the  Fuel  Automated  Subsystem.  Ultimately, 
CASCOM  plans  to  have  a  contractor  develop  the  Fuel  Automated  Subsystem  as  part  of 
the  ICS3  developmental  process. 

B.  PURPOSE 

The  objective  of  this  thesis  is  to  analyze  current  petroleum  operations,  to  identify 
a  target  domain  for  automation  as  the  Fuel  Automated  Subsystem,  and  to  develop  the 
respective  software  system  requirements.  From  the  software  system  requirements,  a 
prototype  of  the  Fuel  Automated  Subsystem  is  modeled  using  the  Computer  Aided 
Prototyping  System  (CAPS)  to  illustrate  its  viability  prior  to  establishing  a  contract  for 
full  subsystem  development. 

C.  RAPID  PROTOTYPING  &  CAPS 

The  use  of  prototyping  in  hardware  engineering  has  been  widely  accepted,  but 
remains  relatively  underutilized  in  software  development.  The  traditional  software 
development  methodology  dictates  that  a  new  system  be  tested  near  the  completion  of  a 
project.  As  a  result  of  the  late  testing  in  the  traditional  approach,  errors  are  found  late  in 


the  development  cycle.  This  untimely  discovery  of  errors  typically  leads  to  a  poor 
quality  product  (unreliable  and  non-maintainable  software),  late  product  delivery,  and 
cost  overrun. 

Conversely,  prototyping  is  an  approach  to  software  development  and  evolution 
that  insures  that  the  system's  design  meets  proposed  requirements  while  it  is  still  in  the 
analysis  and  design  stages  of  development.  A  prototype  is  simply  an  executable  test 
version  of  the  proposed  software  system.  The  prototype  is  explicitly  used  to  gain  further 
information  that  can  guide  analysis  and  design,  and  can  support  automatic  generation  of 
production  code.  Prototyping  is  very  appropriate  for  systems  that  lack  a  specific 
requirements  definition.  Systems  without  a  strong  requirements  definition 
characteristically  require  several  iterations  of  the  prototyping  process,  each  verified  by 
the  user  for  correctness/usability,  prior  to  reaching  the  final  production  code. 

Since  the  Fuel  Automated  Subsystem  is  a  new  and  novel  system  that  is  not 
specifically  defined,  it  lends  itself  well  to  the  prototyping  methodology.  Computer 
assistance  is  required  to  rapidly  construct  a  prototype  for  the  Fuel  Automation 
Subsystem.  CAPS  provides  a  set  of  integrated  software  tools  which  use  a  fifth  generation 
language  for  automated  software  prototype  development. 
D.  METHODOLOGY  &  DELIVERABLES 

The  top  down  approach  is  the  general  methodology  used  to  analyze  petroleum 
operations,  identify  a  target  domain  for  automation,  requirement  analysis,  and  prototype 
development.  Specifically,  the  approach  consists  of  initially  analyzing  Army 
Regulations,  Department  of  the  Army  Pamphlets,  and  Field  Manuals  that  describe  the 
current  Army  fuel  system  and  its  procedures  to  identify  a  target  domain  for  automation  as 


the  Fuel  Automated  Subsystem.  From  this  initial  analysis,  the  Army's  fuel  system  is 
decomposed  into  three  distinct  functional  categories:  operational  functions,  personnel 
functions  and  equipment  functions.  Since  personnel  and  equipment  functionality  are 
incorporated  in  other  modules  of  ICS3,  the  operational  category  is  further  decomposed  to 
ultimately  identify  petroleum  accountability  as  the  target  domain  for  automation.  With 
the  target  domain  identified,  a  requirement  analysis  establishes  essential  system 
functionality,  attributes,  and  constraints.  Based  upon  the  requirements,  CAPS  is  used  to 
develop  a  prototype  of  the  Fuel  Automated  Subsystem. 

The  deliverables  are  a  requirements  analysis  for  the  Fuel  Automated  Subsystem, 
the  corresponding  prototype,  and  the  thesis.   The  prototype  is  available  to  CASCOM  to 
illustrate  the  viability  of  the  Fuel  Automated  Subsystem. 
E.  ORGANIZATION  OF  THESIS 

This  thesis  is  divided  into  four  chapters.  Chapter  I  introduces  the  Fuel  Automated 
Subsystem  in  the  context  of  the  Army's  efforts  to  develop  ICS3  as  part  of  Force  XXI, 
outlines  the  objective  of  the  thesis,  describes  the  role  of  CAPS,  and  addresses  the  general 
methodology  used  in  the  prototype  development.  Chapter  II  provides  an  overview  of  the 
development  of  Force  XXI,  combat  service  support  in  Force  XXI,  the  role  of  ICS3,  and 
the  current  Army  fuel  system's  structure.  Chapter  III  details  the  Computer  Aided 
Prototyping  System.  Chapter  TV  describes  the  analysis  of  Army  petroleum  operations, 
identifies  petroleum  accountability  as  the  target  domain,  and  develops  the  requirement 
analysis  process  and  architectural  design  of  the  Fuel  Automated  Subsystem  prototype. 
Finally,  Chapter  V  provides  conclusions  and  recommendations  for  future  follow-on  work. 


II.  BACKGROUND  OF  THE  FUEL  AUTOMATED  SUBSYSTEM 

A.  INTRODUCTION 

In  order  to  fully  understand  the  role  and  requirements  of  the  Fuel  Automated 
Subsystem  within  the  Integrated  Combat  Service  Support  System  (ICS3),  one  must  also 
understand  the  major  structural  changes  that  the  Army  is  undergoing  as  it  redesigns  itself 
for  the  21st  century.  The  first  section  of  this  chapter  introduces  the  Army's  future  force  - 
Force  XXI.  The  discussion  includes  a  description  of  the  changing  mission  environment 
and  doctrine  that  has  led  to  the  development  of  Force  XXI.  Subsequent  discussion 
focuses  on  the  characteristics  of  future  Force  XXI  operations  and  includes  the  role  of 
information  technology.  The  second  section  describes  the  objectives  of  combat  service 
support  operations,  which  adequately  support  Force  XXI.  One  of  the  objectives 
discussed  is  the  requirement  for  a  single,  seamless  logistics  system  that  leverages  digital 
technology.  The  third  section  specifically  describes  the  current  combat  service  support 
structure,  its  shortfalls,  and  the  development  plans  for  ICS3  to  meet  the  single,  seamless 
logistics  system  requirement.  The  final  section  describes  the  current  automated/manual 
Army  fuel  system  as  the  functional  and  procedural  baseline  for  the  development  of  the 
Fuel  Automated  Subsystem. 

B.  FORCE  XXI 

1.  Changing  Missions  and  the  Future  Force 

For  the  United  States  Army,  the  decade  of  the  90' s  has  been  a  period  of  dramatic 
change.  Change  has  not  only  occurred  in  terms  of  restructuring  the  force  and  increasing 
worldwide  operations,  but  also  in  the  doctrine  in  which  military  operations  are  conducted. 


Change  in  combat  operations  first  became  apparent  in  combat  operations  at  the  end  of  the 
Cold  War.  Those  combat  operations  included  "Just  Cause"  in  Panama  in  1989,  "Desert 
Shield  /  Storm"  in  Southwest  Asia  in  1990-1991,  and  "Provide  Comfort"  in  Southwest 
Asia  which  began  in  1 99 1 .  In  these  operations  much  of  the  change  was  derived  from 
information-age  capabilities,  increased  integration  of  sister  service  components  into  an 
effective  battle  team,  more  lethal,  survivable,  agile  weapons  systems,  and  more  capable 
soldiers  and  leaders.  Most  recently,  the  Army's  operational  missions  and  experiences 
have  been  focused  on  peace  enforcement.  Peace  enforcement  operations  are  not  new 
missions  for  the  military,  but  have  become  more  frequent  in  the  unstable  post  Cold  War 
world.  Operations  such  as  "Restore  Hope",  "Uphold  Democracy",  "Able  Sentry"  and 
"Joint  Endeavor",  all  peace  enforcement  operations,  have  caused  the  Army  to  redirect 
materiel,  funds,  and  personnel  resources  to  accomplish  these  missions.  These  operations 
serve  to  illustrate  the  doctrinal  shift  from  the  forward-deployed  Cold  War  defensive 
Army  to  a  force  projection  Army.  The  lessons  learned  from  these  peacekeeping  missions 
are  that  they  are  fluid  and  dynamic  operations.  Specifically,  the  Army  has  determined 
that  peace  enforcement  requires  comprehensive  battlefield  visualization,  robust 
situational  awareness,  continuous  planning  and  capability  for  non-contiguous  operations 
[Ref.  3].  In  order  to  meet  the  current  changes  and  challenges,  as  well  as  those  of  the  21st 
century,  the  Army  undertook  the  mission  to  determine  the  force  design,  capabilities  and 
doctrine  best  suited  for  the  future  in  order  to  maintain  a  qualitative  edge  over  potential 
adversaries. 


2.  Evolution  of  Doctrine  and  Force  Structure 

Historically,  the  United  States  Army's  structure  and  doctrine  has  continuously 
evolved  and  improved.  The  Army  has  primarily  changed  due  to  the  incorporation  of 
results  of  operational  experiences,  new  operational  concepts,  and  experimentation  in 
force  design.  The  Center  for  Army  Lessons  Learned  at  Fort  Leavenworth,  Kansas  has 
captured  and  collected  information  learned  from  operations  and  training  experiences  with 
the  sole  purpose  of  providing  those  lessons  to  improve  force  design,  doctrine,  training 
and  organization.  For  example,  the  Center  for  Army  Lessons  Learned  most  recently  has 
captured  the  operational  changes  and  experiences  of  the  Army's  humanitarian  assistance 
in  Rwanda  and  Somalia,  and  peacekeeping  operations  in  Somalia,  Haiti  and  Bosnia.  New 
and  innovative  operational  concepts  have  also  been  continuously  developed.  In  the  past, 
new  concepts  such  as  the  Air  Land  Battle  and  Active  Defense  have  ultimately  become 
adopted  as  cornerstones  of  the  Army's  warfighting  doctrine. 

The  Army  has  also  improved  through  experimentation  -  Advanced  Warfighting 
Experiments  (AWE).  Through  virtual  and  live  simulations,  new  approaches  to  land 
combat  can  be  tested.  Virtual  simulation  enables  force  developers  to  conduct  progressive 
iterations  that  ultimately  move  closer  to  the  ideal  force.  Live  simulations  and  exercises 
insure  real  soldiers  and  units  can  ultimately  execute  their  required  warfighting  operations. 
Today,  through  the  approaches  of  operational  experience,  operational  concepts,  and 
experimentation,  the  Army  has  developed  a  new  operational  concept  for  land  warfare  - 
Force  XXI. 
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Figure  1.  Evolution  of  Force  XXI 

3.  Characteristics  of  Force  XXI  Operations 

Force  XXI,  the  United  States  Army  of  the  21st  century,  is  the  re-conceptualization 
and  redesign  of  the  Army's  fighting  force  at  all  echelons,  from  the  foxhole  in  the  field  to 
the  industrial  base,  to  meet  the  needs  of  a  volatile  and  ever  changing  world.  Force  XXI 
operations  are  defined  as  multi-dimensional,  precise,  non-linear,  distributed, 
simultaneous,  and  integrated  [Ref.  3]. 

Multi- Dimensional  -  operates  in  a  battlespace  that  maintains  the  traditional 
physical  dimensions  of  width,  depth,  and  height  as  well  as  the  non-traditional  dimension 
of  the  electro-magnetic  spectrum. 

Precise  -  characterized  by  synchronized  attacks  on  vulnerable  units  and  targets. 
These  synchronized  operations  will  require  great  precision.  Precision  is  enabled  by  three 
capabilities.    First,  digitization  of  information  allows  informed  decisions  at  all  levels. 

8 


Second,  sensors  at  the  tactical,  operational,  and  strategic  level  linked  to  analytical  teams 
provide  situational  awareness.  Lastly,  simulations  enable  forces  to  be  tailored  to  best 
meet  an  emerging  situation  or  crisis. 

Non-Linear  -  tasks  executed  across  the  entire  battlespace  rather  than  the  massing 
of  combat  power  at  the  forward  line  of  troops.  Non-linearity  will  also  increase  the 
requirement  for  all  Army  units  (maneuver,  combat  service,  and  combat  service  support) 
to  provide  enhanced  security. 

Distributed  Operations  -  enables  units  to  take  advantage  of  inter-networked 
communications  and  eliminates  the  use  of  the  chain  of  command  as  the  sole  source  of 
information.  Decentralization  allows  subordinates  to  operate  independently  within  the 
commander's  intent  and  ultimately  allows  greater  flexibility  to  changing  situations. 

Simultaneous  Operations  -  mult-dimensional,  precise,  distributed  and  non-linear 
operations  result  in  the  ability  of  forces  to  conduct  simultaneous  operations  across  the 
entire  battlespace.  Digitization  creates  the  ability  to  plan,  coordinate,  and  execute 
operations  simultaneously. 

Integration  -  fully  integrated  with  joint  and  allied  forces.  From  initial  mission 
receipt,  deployment,  mission  execution,  and  transition  to  follow  on  operations,  Army 
units  will  function  as  part  of  a  joint  task  force. 

4.  Leveraging  Information  Technology 

Force  XXI  is  to  be  largely  organized  and  focused  around  information  and 
information  technologies.  The  central  and  essential  feature  of  this  future  Army  will  be  its 
ability  to  exploit  information.  Two  of  the  main  objectives  of  Force  XXI  that  allow  future 
exploitation    are    the    digitization    of   the    battle-space    and    situational    awareness. 


Digitization  of  the  battle-space  simply  refers  to  the  application  of  technology  to  acquire, 
exchange,  and  employ  timely  information  that  is  horizontally  and  vertically  integrated  to 
create  a  common  picture  of  the  battle  field  for  soldiers  and  commanders  [Ref.  3]. 
Situational  awareness  provides  the  capabilities  of  accurate  and  real-time  information  of 
friendly,  enemy,  neutral,  and  noncombatant  locations.  Additionally,  situational 
awareness  provides  a  common,  relevant  picture  of  the  battlefield  scaled  to  a  specific  level 
of  interest  and  need  [Ref.  3].  A  digitized  battle-space,  coupled  with  situational 
awareness,  will  ultimately  create  a  synergy  among  organizations  that  will  greatly  enhance 
the  Army's  combat  capabilities  and  power  projection. 
C.  FORCE  XXI  COMBAT  SERVICE  SUPPORT 

1.  Combat  Service  Support  Defined 

Combat  service  support  (CSS)  and  the  term  logistics  are  closely  related  but  yet 
are  very  different.  Joint  Chief  of  Staff  Publication  4.0  defines  the  broad  area  of  logistics 
as: 

"the  science  of  planning  and  carrying  out  of  the  movement  and  maintenance  of 
forces  in  its  most  complete  sense:  those  aspects  of  military  operations  which  deal 
with  (a)  design  and  development,  acquisition,  storage,  movement,  distribution, 
maintenance  and  disposition  of  materiel;  (b)  movement,  evacuation,  and 
hospitalization  to  include  all  levels  of  treatment  of  personnel;  (c)  acquisition  or 
construction,  maintenance,  operation,  and  disposition  of  facilities;  and  (d) 
acquisition  or  furnishing  of  services"  [Ref.  4]. 

Combat  service  support  includes  logistics  in  the  battlefield  functional  areas  of 
manning,  arming,  fixing,  fueling,  moving,  and  sustaining  soldiers  and  their  systems. 
Combat  service  support  is  characterized  by  anticipation,  integration  of  functions, 
continuity  of  support  responsiveness,  versatility  to  circumstances,  and  improvisation. 
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2.  Logistical  Objectives 

To  meet  the  demanding  challenges  of  Force  XXI,  providers  of  combat  service 
support  will  be  forced  to  leverage  current  and  emerging  technologies.  Force  XXI 
requires  that  combat  service  support  be  provided  faster,  more  effectively  and  efficiently 
than  ever  before.  To  meet  these  requirements,  the  future  strategic  vision  of  "seamless 
support"  was  jointly  developed  by  the  Deputy  Chief  of  Staff  for  Logistics  (DCSLOG), 
United  States  Army  Materiel  Command  (AMC),  and  the  Combined  Arms  Support 
Command  (CASCOM).  In  order  to  create  a  seamless  continuum  for  logistics,  the 
commanders  from  AMC,  DCSLOG,  and  CASCOM  approved  The  United  States  Army 
Strategic  Logistics  Plan  (ASLP)  that  documents  the  strategy,  initiatives  and 
organizational  structure  to  design  and  implement  the  logistical  support  system  for  Force 
XXI.  The  Army's  Chief  of  Staff,  General  Gordon  R.  Sullivan,  has  called  the  ASLP,  the 
"roadmap  to  take  logistics  into  the  21st  century"  [Ref.  5].  The  Army  has  defined  eight 
objectives  in  the  Strategic  Logistics  plan  that  will  serve  as  the  means  to  achieve  the 
vision  of  "seamless  support".  Specifically,  the  eight  Army  strategic  logistical  objectives 
are  [Ref.  2]: 

(1)  Develop  a  single,  seamless  logistics  system. 

(2)  Standardize  operating  practices,  automation,  and  communications. 

(3)  Reengineer  logistics  functions. 

(4)  Establish  visibility  of  stocks  and  an  integrated  distribution  system. 

(5)  Design  a  flexible  and  modular  logistics  force  structure. 

(6)  Develop   effective   mobilization,   strategic   deployment   and   redeployment, 
reconstitution,  and  joint  logistics  capabilities. 
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(7)  Include  technology  insertion,  technical  enhancements,  and  digitization. 

(8)  Establish  performance  measures  based  on  tactical  requirements  and  standards. 
Using  the  objectives  above,  CASCOM  is  responsible  for  creating  the  Force  XXI 
logistical  organizations  capable  of  "seamless  support."  To  insure  the  support  required  by 
Force  XXI  is  provided,  future  combat  service  support  organizations  must  simply  be 
designed  to  operate  at  an  equivalent  or  higher  level  than  the  combat  forces  they  support. 
The  faster  and  more  responsive  combat  support  structure  will  require  greater  control  of 
resources,  information  and  communications.  As  a  result,  the  logistics  community  can  no 
longer  rely  on  large  inventories  managed  by  telephone  and  the  legacy  systems  of  the  past. 
In  order  to  meet  these  strategic  logistics  objectives,  the  logistics  community  has 
undertaken  several  initiatives  that  develop  information-based  systems  to  support  the 
future  combat  force.  One  of  these  main  initiatives  is  the  development  of  the  Integrated 
Combat  Support  System  (ICS3). 

D.  INTEGRATED  COMBAT  SERVICE  SUPPORT  SYSTEM 

1.    Current  CSS  Structure  (Pre-Integrated  Combat  Service  Support  System) 

a.  Procedures  and  Operating  Methods 

The  current  policies  and  procedures  for  accomplishing  combat  service 
support  functions  are  directed  by  various  Department  of  the  Army  and  Department  of 
Defense  publications  (i.e.  MILSTRIP  and  MILSTAMP).  These  directed  data  formats  and 
procedures  are  used  by  all  organizations  and  systems  that  deal  the  management  of 
personnel,  finance,  logistics,  and  distribution  of  materiel  from  the  acquisition  of  the  item 
to  its  ultimate  consumption/use  by  the  end  user.  Today's  automation  procedures  have 
many  shortfalls  and  use  a  combination  of  batch  processing,  mini-batch,  and  interactive 
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processing.  Many  of  these  automated  systems  work  separately  with  limited  data  sharing 
and  source  data  is  almost  non-existent.  Currently,  there  is  an  insufficient  level  of 
automation  and  corresponding  communication  networks  to  support  the  CONUS-based 
force  projection  strategy  described  in  FM100-5,  Operations.  Additionally,  there  is  no 
universal  theater/national  asset  visibility  or  management  tool  available  for  the  logistician 
and  the  commander  to  assess  materiel  and  readiness  posture. 

b.    Information  Flow 

Current  logistical  information  flow  is  both  manual  and  automated  in 
nature.  Data  is  physically  transported  vertically  to  and  from  the  lowest  tactical  level  to 
the  national  level.  Accordingly,  this  vertical  information  flow  of  manual  data  hinders  the 
corresponding  horizontal  flow.  The  manual  data  flow  process  is  characteristically  a  time 
and  labor  intensive  process  which  is  prone  to  error,  duplication,  delays,  and  loss  of  data. 
Manual  methods  are  used  at  all  Army  levels  until  eventually  entry  points  to  an  automated 
system  are  reached.  To  minimize  the  amount  of  manual  information  flow,  automation 
has  been  progressively  implemented  throughout  the  Army. 

Individual  Army  combat  service  support  automation  systems,  known  as 
Standard  Army  Management  Information  Systems  (STAMIS)  have  developed  separately 
during  the  evolution  of  the  information  age.  However,  data  cannot  be  efficiently 
transferred  vertically  or  horizontally  within  a  functional  system,  or  between  such 
systems,  due  to  their  "stove-pipe"  nature.  Information  flow  is  routinely  hindered  by 
antiquated,  obsolete,  and  un-linkable  computer  systems,  software  languages,  operating 
systems,  varying  source  data  input,  and  by  the  lack  of  connectivity/interfaces. 
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Figure  2.  Current  "Stove-pipe"  STAMIS  [Ref.  6] 

This  lack  of  information  sharing  and  efficient  system  interfaces  can  lead  to 
supply  requests  which  may  not  be  processed  in  a  timely  and  accurate  manner.  Users  of 
the  current  automated  systems  often  must  hand-carry  data  (magnetic  media  and  disks) 
across  the  battlefield  to  perform  routine  combat  service  support  missions.  This 
messenger  network  is  commonly  referred  to  as  the  "sneaker  net".  In  some  cases,  data 
must  be  retrieved  from  one  functional  system,  downloaded,  reformatted,  manipulated, 
and  then  reentered  into  another  related  functional  system  that  requires  the  same  exact 
data  elements  and  information,  thus  causing  delays  and  errors.  Further  impeding 
information  flow,  the  financial,  personnel,  and  unit  movement  automation  has  not  been 
fully  integrated  with  other  combat  service  support  systems. 

As  a  result  of  fractured  combat  service  support  automation,  customers 
have  developed  a  number  of  unique  systems  that  do  not  work  with  the  standard  systems 
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or  support  combined/joint  automation  requirements.  In  short,  for  combat  service  support 
automation,  presently  there  is  no  seamless  and  interactive  flow  of  information  but  rather 
distinct  islands  of  automation. 
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Figure  3.  Current  STAMIS  Environment  [Ref.  6] 

c.    Security 

Army  combat  service  support  automation  security  is  established  in 
accordance  with  AR  380-19,  Department  of  the  Army  Information  Security  Program.  A 
password  and  user  identification  that  limits  system  access  is  commonly  used,  and 
controlled  by  the  system  administrator.  The  password/user  identification  system  coupled 
with  physically  separate  systems  serves  as  the  primary  means  of  maintaining  security  for 
combat  service  support  systems  operating  at  different  security  levels.  This  total  physical 
separation  between  automated  systems  at  different  security  levels  also  contributes  to 
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interrupted  data  flow.    Output  reports  from  automated  systems  are  required  to  contain 
sensitivity  markings,  and  audit  trails  are  maintained  internally  by  the  systems. 

2.  Integrated  Combat  Service  Support  System  Overview 

To  meet  the  shortfalls  in  current  Army  combat  service  support  systems,  the 
Integrated  Combat  Service  Support  System  (ICS3)  will  be  the  total  Army's  (i.e.  active 
Army,  Army  Reserve,  and  National  Guard)  single  seamless,  integrated,  and  interactive 
combat  service  support  management  system  [Ref.  7].  ICS3  specifically  supports  the 
Force  XXI  digitized  Army  and  will  also  constitute  the  Army's  portion  of  the  Global 
Combat  Support  System  (GCSS).  ICS3  also  will  enhance  situational  awareness  and 
encompass  all  combat  service  support  disciplines  so  as  to  man,  arm,  fix,  fuel,  move,  and 
sustain  the  force  under  one  single  automated  system.  ICS3,  as  a  single  automated 
system,  will  maximize  the  use  of  source  data  automation  to  reduce  data  transcription 
errors  and  improve  accuracy.  The  structure  of  ICS3  will  be  modular  and  will  be  able  to 
function  in  support  of  split  based  operations,  joint  operations,  and  operations  supporting 
allied  nations. 

3.  Development  of  the  Integrated  Combat  Service  Support  System 

While  ICS3  supports  situational  awareness  for  command  and  control,  its  primary 
purpose  is  to  automate  the  combat  service  support  processes  for  the  total  Army.  The 
ICS3  will  be  seamless,  integrated,  modular,  and  interactive  at  all  force  support  levels. 
The  system  will  operate  on  commercial  off  the  shelf  (COTS)  non-developmental  item 
(NDI)  computer  equipment.  The  modular  design  of  ICS3  allows  the  system  to  be  tailored 
to  accommodate  different  combat  service  support  missions  and  organizations.   ICS3  will 
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further  provide  combat  service  support  units  at  all  levels,  a  responsive  and  efficient 
capability  to  anticipate,  allocate,  and  synchronize  resources,  services,  and  information. 

Development  of  ICS3  will  not  be  a  totally  new  program.    The  development  of 
ICS3  is  scheduled  to  follow  a  three  phased  evolutionary  strategy. 
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Figure  4.  ICS3  Phased  Development  [Ref.  6] 

Phase  I  provides  an  initial  operational  capability.  Phase  II  provides  an  interim 
enhanced  capability,  and  Phase  III  is  scheduled  to  ultimately  achieve  full  operational 
capability.  The  system  development  will  initially  integrate  and  modernize  the  current 
logistics  STAMIS,  then  implement  improvements  that  integrate  wholesale  and  retail 
combat  service  support,  and  eventually  achieve  joint  integration. 

Phase  I  -  Initial  Operational  Capability:  In  this  phase,  an  initial  operational 
capability  will  be  developed  through  integration  and  modernization  of  the  current  tactical 
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logistics  STAMIS.  The  capabilities  to  be  integrated  during  this  phase  are  supply, 
property,  ammunition,  and  maintenance  functions.  The  corresponding  tactical  logistics 
STAMIS  to  be  functionally  integrated  include:  the  Unit  Level  Logistics  system  (ULLS); 
Standard  Army  Retail  Supply  System  (SARRS);  Standard  Army  Property  Book  System 
(SPBS);  Standard  Army  Ammunition  System  (SAAS);  and  the  Standard  Army 
Maintenance  System  (SAMS).  The  planned  modules  include: 

(1)  a  supply  and  property  module  that  integrates  supply  operations  and  property 
accountability. 

(2)  a  modernized  maintenance  module  that  integrates  maintenance  operations 
(ground,  aviation,  petroleum  equipment,  etc.)  at  each  level  of  maintenance. 

(3)  an  ammunition  supply  point  module  that  integrates  class  V  management  and 
operations  at  ammunition  supply  points. 

(4)  a  supply  support  activity  module  that  integrates  supply  management  and 
operations  at  supply  support  activities. 

(5)  an  integrated  materiel  management  module  that  integrates  supply,  property, 
ammunition,  and  maintenance  management  in  all  materiel  management 
organizations. 

(6)  A  management  module  that  integrates  information  from  multi-functional  CSS 
data  sources  and  allows  for  data  exchange  with  other  ICS3  modules  and 
external  systems. 

The  ICS3  will  also  have  interfaces  so  that  users  can  gain  access  to  information  and 
exchange  operational  data  in  CSS  functional  areas  such  as  personnel,  medical,  finance, 
transportation,  training,  and  unit  administration. 
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Figure  5.  ICS3  Phase  I  [Ref.  6] 

Phase  II  -  Enhanced  Operational  Capability:  In  this  phase,  the  initial  ICS3 
Phase  I  capabilities  will  be  enhanced  by  including  the  processes  associated  with 
wholesale  logistics.  The  design  and  development  of  ICS3  during  this  phase  will  be 
shaped  by  further  advances  in  technology,  results  from  advanced  warfighting 
experiments  (AWE),  new  battlefield  distribution  concepts  and  Force  XXI  initiatives. 

Phase  III  -  Full  Operational  Capability:  This  phase  will  be  completed  with  the 
implementation  of  all  required  interfaces  to  the  automation  systems  of  the  joint 
community  and  applicable  allied  systems.  The  full  operational  capability  will  provide  the 
seamless,  integrated,  modular,  interactive,  and  interoperable  combat  service  support 
system  for  the  total  Army. 


19 


4.     Integrated  Combat  Service  Support  System  End  State  Vision 

The  final  state  of  the  ICS3  developmental  plan  will  ultimately  result  in  a  "system 
of  systems"  that  automates  the  combat  service  support  functions  of  manning,  arming, 
fixing,  fueling,  moving,  and  sustaining  the  force.  The  ICS3  will  have  unified,  organized 
and  enhanced  the  legacy  STAMIS  initiatives  of  both  retail  and  wholesale  logistics.  The 
system  will  provide  one  common  integrated  source  of  logistical  data. 


Figure  6.  ICS3  a  "System  of  Systems"  [Ref.  6] 

The  benefits  of  ICS3  are  great  and  can  most  clearly  be  illustrated  in  the  simple 
scenario  of  a  unit  commander  who  would  like  to  determine  the  status  of  the  unit's  motor 
pool.  Currently,  the  unit  commander  must  extract  information  from  six  different 
STAMIS  that  are  most  likely  not  co-located  in  order  to  obtain  an  overall  picture  of  the 
status  of  his  unit's  vehicle  fleet. 
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Figure  7.  Motor  pool  example  of  the  benefits  of  ICS3  [Ref.  6] 

From  the  Standard  Property  Book  system  (SPBS-R)  located  at  the  property  book 
office,  the  commander  can  determine  the  unit's  equipment  density;  the  number  of 
vehicles  currently  on-hand  verses  the  number  authorized.  From  the  Standard  Army 
Training  System  (SATS)  in  the  S-3  office  and  Standard  Army  Installation/Division 
personnel  System  (SIDPERS)  in  the  S-l  office,  training  and  personnel  strength  can  be 
determined.  To  determine  which  vehicles  are  non-mission  capable,  the  Unit-Level 
Logistics  System  (ULLS-G)  and  Standard  Army  Maintenance  System  (SAMS)  located  in 
the  motor  pool  must  be  accessed.  Lastly,  the  Standard  Army  Retail  Supply  System 
(SARRS)  displays  the  due-in  status  for  the  parts  needed  to  fix  any  non-operational 
vehicle.  In  this  scenario,  there  is  no  STAMIS  that  provides  the  commander  or  logistician 
an  accurate  assessment  of  the  unit's  fuel  status.  Under  ICS3,  the  commander  will  simply 
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use  one  computer  to  navigate  through  a  series  of  icons/windows  to  have  complete 
visibility  of  the  motor  pool. 

On  a  larger  scale,  ICS3  supported  by  a  responsive  communications  network  can 
enhance  the  battlefield  commander's  decision  making  capability  by  providing  timely  and 
accurate  status  reports  on  units,  equipment,  and  supplies.  As  a  result,  the  commander 
will  have  the  capability  to  optimize  allocation  and  use  of  limited  CSS  assets  to  meet  the 
needs  of  the  force.  By  having  a  common  integrated  automation  system,  the  collection, 
processing,  and  transferring  of  unnecessary  or  redundant  data  from  the  tactical,  strategic, 
and  operational  levels  will  be  eliminated. 
E.  CURRENT  ARMY  FUEL  SYSTEM  PROCEDURES  &  AUTOMATION 

Phase  I  of  the  ICS3  developmental  plan  develops  initial  operational  capability  to 
include  retail  logistics  through  the  integration  and  modernization  of  the  current  tactical 
logistical  STAMIS.  At  the  retail  level,  the  current  Army  fuel  system  is  only  partially 
automated.  No  dedicated  STAMIS  exists  for  fuel  management  and  most  procedures  are 
still  conducted  manually.  As  a  result  of  limited  automation,  the  Army's  fuel  supply 
system  has  distinct  shortcomings.  These  shortcomings  were  identified  during  the  FY  84 
through  FY  91  U.S.  Army  Audit  Agency  audits  of  27  Army  installations.  The  audit  of 
bulk  petroleum  management  and  accountability  yielded  three  main  conclusions  [Ref.  8]: 

(1)  Supply  Support  Activities  and  using  units  did  not  adequately  account  for  bulk 
petroleum  products. 

(2)  Control  of  deliveries  from  contractors  was  not  effective. 

(3)  Physical  security  measures  did  not  adequately  safeguard  petroleum  products 
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To  alleviate  the  shortcomings  during  ICS3  development  phase  I,  the  current  limited  retail 
fuel  automation  capabilities  must  be  integrated  and  the  manual  procedures  modernized  / 
automated  when  developing  the  Fuel  Automated  Subsystem. 

1.  Petroleum  Product  Classifications  and  Retail  Operations 

The  term's  fuel  and  petroleum  are  synonymous  with  class  III.  Class  III  is  the 
common  Army  supply  classification  for  petroleum  products,  and  includes  bulk  fuels  (i.e. 
diesel,  gasoline,  etc.)  and  packaged  petroleum  products  (i.e.  motor  oil,  grease,  antifreeze 
etc.).  Packaged  petroleum  products  are  managed/accounted  for  by  the  same  procedures 
that  apply  to  other  classes  of  supply  (i.e.  repair  parts,  expendable  supplies,  etc.)  and  will 
be  captured  in  the  development  of  the  Standard  Supply  Subsystem  within  the  Supply 
Support  Module  of  ICS3.  Accordingly,  the  remaining  sections  only  address  current  bulk 
fuel  functions  and  management  at  the  retail  level  since  it  serves  as  the  basis  for 
determining  the  requirements  of  the  Fuel  Automated  Subsystem. 

Retail  fuel  operations  are  conducted  at  class  III  supply  points  and  include  the 
general  functions  of  receipt,  storage,  issue,  and  quality  assurance  /  surveillance. 
However,  inherent  in  these  basic  operations  is  the  requirement  to  manage  petroleum 
operations.  Petroleum  management  involves  maintaining  accurate  accounts  and 
executing  appropriate  quality  control  procedures  for  all  receipts,  issues,  and  stocks  on 
hand. 

2.  Manual  Fuel  Management 

At  the  class  III  supply  point,  accountability  is  maintained  through  managing  the 
receipt,  storage,  and  issue  of  class  III  products.  AR  710-2,  Inventory  Management 
Supply  Policy  Below  the  Wholesale  Level,  specifically  mandates  the  requirement  to 


23 


maintain  an  accurate  account  of  all  petroleum  receipts,  issues,  and  stocks  on  hand.  To 
accomplish  the  inventory  and  accountability  requirements  of  bulk  fuels  per  Army 
regulation,  the  following  five  manual  documents  and  reports  are  currently  used: 

DP  Form  1348-1  -  Whenever  bulk  petroleum  is  received  at  the  Class  III  supply 
point,  Department  of  Defense  (DD)  Form  1348-1  (DOD  Single  Line  Item 
Release/Receipt  Document)  is  generally  used  as  the  receipt  document.  The  form  is  a  six- 
part,  carbon-interleaved  form.  The  form  is  specifically  used  to  verify  that  the  supply 
point  has  received  the  correct  amount  and  type  of  fuel.  Upon  receipt,  an  individual 
verifies  the  type  and  amount  of  fuel  and  then  completes  the  form  by  signing  and  dating  it. 

DA  Form  2765-1  -  The  supply  point  customer  uses  Department  of  the  Army 
(DA)  Form  2765-1  (Request  for  Issue  or  Turn-in)  to  request  packaged  and  bulk  products 
to  be  delivered  by  tank  trucks  and  semi-trailers.  The  form  may  also  be  used  for  the  turn- 
in  of  excess  cans,  drums,  or  supplies.  The  individual  making  the  issue  completes  the 
form  by  annotating  the  issued  quantity,  initialing  the  form,  and  then  dating  it. 

DA  Form  3643  -  The  DA  Form  3643  (Daily  Issues  of  Petroleum  Products)  is  a 
detailed  daily  record  of  all  fuel  products  issued  and  received  at  the  supply  point. 

DA  Form  3644  -  The  DA  Form  3644  (Monthly  Abstract  of  Issues  of  Petroleum 
Products  and  Operating  Supplies)  is  used  to  show  the  total  monthly  issues  and  receipts  of 
petroleum  products  and  operating  supplies. 

DA  Form  4702-R  -  The  DA  Form  4702-R  (Monthly  Bulk  Petroleum  Accounting 
Summary)  is  used  to  report  all  losses  or  gains  revealed  by  monthly  inventories. 
Inventory  losses  reflected  on  this  form  which  exceed  those  allowed  by  AR  703-1,  or  that 
are  disapproved  by  the  approving  authority  (the  first  lieutenant  colonel  in  the  chain  of 
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command)  must  be  supported  by  a  report  of  survey.  Gains  in  excess  of  the  allowable 
limits  must  also  be  investigated  to  determine  the  cause.  A  copy  of  the  investigation  report 
must  be  attached  to  DA  Form  4702-R  as  a  supporting  document. 

An  illustration  of  each  of  these  forms  is  provided  in  Appendix  A  of  this  thesis. 
Additional  guidance  on  the  use  of  these  forms  can  be  found  in  Department  of  the  Army 
Pamphlet  710-2-1  (Using  the  Unit  Supply  System:  Manual  procedures)  and  710-2-2 
(Supply  Support  Activity  Supply  System:  Manual  Procedures).  A  summary  of  the 
overall  interaction  between  these  fuel  accountability  documents  as  prescribed  in  AR  7 1 0- 
2  and  DA  Pam's  710-2-1-  and  710-2-2  is  illustrated  below. 
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Figure  8.  Fuel  Documentation  Flow 

Also  inherent  in  fuel  management  is  the  aspect  of  quality  surveillance.    The 

quality  surveillance  mission  is  to  maintain  the  quality  of  petroleum  products  from  point 
of  origin  to  the  point  of  use.  The  quality  surveillance  program  encompasses  bulk  fuel  in 
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waterborne  carriers,  tank  cars,  tank  vehicles,  pipeline  systems,  bulk  storage,  and 
packaged  products.  Detailed  information  regarding  the  specific  procedures  for 
inspecting,  sampling,  testing,  and  handling  for  each  storage  and/or  transportation  mode  is 
contained  in  the  references  listed  below. 

Bulk  Storage  -  AR  703-1,  DOD  4140.25M,  Federal  Test  Method  Standard  791, 
Military  Handbook  200,  Military  Handbook  201,  Military  Standard  140,  Military 
Standard  140,  Military  Standard  161,  and  Military  Standard  457. 

Bulk  Transportation  Classes  : 

Marine  -  Commander  of  Military  Sea-lift  Command  Instructions  3121.3, 
DOD  4140.25M,  Military  Handbook  200,  and  Military  Handbook  201 . 

Tank  Cars  and  Tank  Vehicles  -  AR  703-1,  DOD  4140.25M,  FM  10-69, 
FM  10-71,  Military  handbook  200,  and  Military  Handbook  201. 

Pipeline  -  AR  703-1,  AR  715-27,  DOD  4140.25M,  FM  10-18,  FM  10-20, 
FM  10-70,  FM  10-207,  Military  Handbook  200,  Military  Handbook  201,  and  Military 
standard  161. 

In  all  cases,  the  procedures  for  inspecting,  sampling,  testing,  and  handling  are 
accomplished  manually.  These  tasks  involve  soldier  involvement  to  actually  take  a 
sample  of  a  petroleum  product,  conduct  laboratory  tests,  etc.  The  physical  procedures 
required  in  quality  surveillance  are  currently  not  automated,  and  would  prove  difficult  to 
automate. 

3.  Automated  Fuel  Management 

Fuel  management  is  automated  to  a  very  limited  extent.  Currently,  fuel 
requisitions  for  both  packaged  and  bulk  petroleum  products  can  be  entered  in  the  Army's 
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automated  supply  system  through  ULLS,  the  Unit  Level  Logistics  System.  From  ULLS, 
the  requisition  transitions  through  SARSS  and  SAILS  (the  intermediate  supply  level), 
where  it  may  be  filled.  If  the  requisition  is  not  filled  at  the  intermediate  supply  level,  the 
requisition  is  passed  to  the  Defense  Fuel  Supply  Center's  Fuel  Automated  System  (the 
whole  sale  supply  level).  The  Defense  Fuel  Supply  Center  (DFSC)  acts  as  the  Defense 
Logistics  Agency's  (DLA)  designated  representative,  conducting  all  of  the  Department  of 
Defense's  management  of  fuel  inventories  and  war  reserves.  A  diagram  of  this  procedure 
and  the  different  system  functionality  is  illustrated  below. 
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Figure  9.  Current  Fuel  Automation  Structure 
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The  automated  flow,  however,  only  handles  requests  for  petroleum  products.  All  retail 
level  management  functions  associated  with  the  receipt,  issue,  and  storage  of  bulk  fuels 
are  not  automated. 

A  new  initiative  to  provide  fuel  asset  visibility  has  most  recently  been 
incorporated  within  the  Army's  Advanced  Warfighting  Experiments.  Applique,  is  a  new 
software/hardware  suite  that  digitizes  command  and  control  at  brigade  level  and  below. 
Applique,  is  also  a  subsystem  of  Force  XXI  Battle  Command,  Brigade  and  Below 
(FBCB2)  and  provides  the  commander  or  logistician  a  relevant  picture  of  the  current 
combat  service  support  situation  at  his/her  echelon  as  well  as  visibility  to  subordinate 
units.  It  specifically  is  designed  to  provide  combat  service  support  situational  awareness 
and  enhanced  capability  to  synchronize  support  to  customers.  The  combat  service 
support  functionality  in  Applique  includes  logistics  situational  reports,  personnel 
situational  reports,  situational  awareness,  requests  for  support,  and  logistical  task  order 
messaging. 

Applique  is  designed  to  interface  with  another  new  test  system  -  the  Combat 
Service  Support  System  (CSSCS).  CSSCS  provides  desired  command  and  control 
information  to  CSS  and  force  level  commanders'  and  their  staffs  based  upon  data 
received  from  the  legacy  CSS  STAMIS  and  CSS  functional  elements. 
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Applique/  KBCB: 
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Figure  10.  New  Fuel  Automation  Initiatives 

While  these  new  test  systems  provide  situational  awareness  and  fuel  asset  visibility,  retail 
fuel  management  functions  associated  with  the  receipt,  issue,  and  storage  of  bulk  fuels 
remain  un-automated. 


29 


30 


III.  COMPUTER  AIDED  PROTOTYPING  SYSTEM 

A.  INTRODUCTION 

The  Computer  Aided  Prototyping  System  (CAPS)  is  a  computer  aided  software 
engineering  tool,  developed  at  the  United  States  Naval  Postgraduate  School,  used  for 
automated,  real-time  software  prototype  development.  In  this  thesis,  CAPS  is  the 
software  engineering  tool  used  to  develop  a  prototype  of  the  Fuel  Automated  Subsystem 
of  ICS3.  The  objective  of  CAPS  is  to  "assist  Department  of  Defense  program  managers 
and  engineers  to  rapidly  evaluate  requirements  for  military  real-time  control  software 
using  executable  prototypes  and  to  test  and  integrate  completed  subsystems  through 
evolutionary  prototyping"  [Ref.  9].  CAPS  is  a  self-contained,  complete  developmental 
environment  that  incorporates  graphical  system  decomposition  and  design,  interface 
design  and  integration,  real-time  scheduling,  and  compiler  support.  CAPS  also  provides 
automated  support  for  software  reuse. 

B.  THE  PROTOTYPING  PROCESS 

1.  Traditional  Software  Development 

Prototyping  is  widely  used  in  conventional  industrial  manufacturing  to  refine 
requirements  and  to  provide  a  tangible  product  that  can  be  verified  against  customer 
needs.  In  software  development,  however,  prototyping  is  not  widely  used. 

The  traditional  approach  to  software  development  is  commonly  known  as  the 
"waterfall"  method.  In  the  "waterfall"  method,  a  developmental  project  proceeds  in 
distinct  phases  -  analysis,  design,  coding,  testing,  and  maintenance. 
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Figure  11.  Traditional  Software  Development  -  "Waterfall  Method"  [Ref.  10] 


With  the  "waterfall"  methodology,  the  testing  phase  at  the  conclusion  of  the 
project  is  an  extensive  attempt  to  insure  the  system  functions  properly  and  meets 
customer  needs.  However,  the  major  flaw  in  this  approach  is  that  system 
requirements/functionality  is  determined  early  during  the  requirements  analysis  phase. 
Requirements  can  not  be  simply  frozen  during  system  development,  but  rather  tend  to 
change  and  evolve.  Additionally,  without  trial  use  of  the  system,  the  customer  cannot 
effectively  validate  requirements.  As  a  direct  result  of  these  distinct  problems, 
requirement  errors  are  only  discovered  at  the  end  of  development  in  the  maintenance 
phase,  when  typically  the  budget  is  nearly  expended  and  the  target  system  development 
date  has  past.  The  ultimate  consequence  is  that  there  are  no  immediate  ways  to  recover 
from  any  major  errors  without  a  significant  investment  of  time  and  money.  The  cost  of  a 
requirement   error   rises   exponentially   during  the   software    developmental    process. 
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Specifically,  discovering  a  requirement  error  at  the  end  of  the  "water  fall"  developmental 
process  costs  approximately  1 00  times  more  to  fix  than  if  it  was  initially  identified  early 
during  the  requirements  analysis  phase  [Ref.  11]. 

2.    Rapid  Prototyping 

Prototyping  is  the  process  of  developing  a  "concrete  executable  model  of  selected 
aspects  of  a  proposed  system"  [Ref.  12].  Rapid  prototyping  is  a  further  extension  of  the 
prototyping  that  allows  the  quick  development  of  an  executable  program  that 
demonstrates  feasibility,  can  be  reviewed  by  the  customer  for  accuracy,  and  easily 
modified/refined.  The  prototyping  process  is  iterative  in  nature. 
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Figure  12.  The  Prototyping  Cycle  [Ref.  12, 13] 

In  rapid  prototyping,  the  system  designer  and  the  user  jointly  develop  initial 
requirements  and  specifications  for  the  critical  parts  of  a  system.  These  requirements 
serve  as  the  basis  to  design  a  prototype  that  can  be  demonstrated  to  the  customer.    The 
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prototype  is  a  partial  representation  of  the  system  and  includes  only  the  necessary 
attributes  to  meet  the  requirements.  The  prototype  simply  serves  as  an  aid  in  analysis  and 
design.  From  the  prototype,  the  customer  can  clearly  determine  if  the  prototype  meets  his 
or  her  needs.  If  the  prototype  is  accurate,  development  of  a  production  system  can 
proceed.  However,  if  the  prototype  does  not  meet  the  customer's  requirements,  any 
shortcomings  can  be  addressed  and  the  requirements  used  to  build  the  prototype 
modified.  The  prototyping  cycle  continues  until  the  customer  ultimately  is  provided  a 
prototype  that  meets  his/her  needs.  Once  the  valid  prototype  has  been  identified,  the 
requirements  captured  in  the  prototype  serve  as  the  starting  point  for  production  code 
development.  In  some  cases,  the  prototype  itself  may  actually  serve  as  the  basis  of  the 
production  code.  Further  system  development  is  typically  required  since  the  prototype 
[Ref.  12]: 

(1)  may  not  include  all  of  the  aspects  of  the  total  system. 

(2)  may  have  been  implemented  using  other  resources  not  available  in  the  actual 
system  environment. 

(3)  may  not  be  capable  of  handling  the  full  demands  of  the  actual  system. 

The  prototyping  approach  solves  the  flaw  of  late  identification  of  requirement 
errors  in  the  traditional  "water  fall"  software  methodology.  In  the  prototyping  approach, 
the  requirement  changes  are  identified  early  during  the  iterative  prototyping  process  as 
opposed  to  the  maintenance  phase  of  production  code  in  traditional  development.  Since 
the  prototype  description  is  typically  simpler  than  production  code,  it  is  more  suited  to 
easy  modification  at  great  cost  and  time  savings.  This  flexibility  also  makes  prototyping 
quite  attractive  for  systems  that  have  undefined  or  rapidly  changing  requirements. 
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C.         CAPS  DEVELOPMENTAL  ENVIRONMENT 

The  Computer  Aided  Prototyping  System  (CAPS)  is  an  integrated  software 
development  environment  that  is  at  the  heart  of  the  requirement  generation  process  used 
in  this  thesis.  The  Prototype  System  Description  Language  (PSDL)  in  CAPS  is  designed 
for  specifying  real-time  systems.  The  PSDL  descriptions  produced  by  CAPS  provide  a 
formal  and  unambiguous  definition  of  the  modeled  system. 

CAPS  consists  of  four  major  components:  a  set  of  editors  for  design  entry,  a 
software  base  of  reusable  components,  and  an  execution  support  system  to  construct  the 
executable  prototype.  By  using  the  CAPS  graphics  and  text  editors,  the  user  can  create  a 
prototype  that  specifies  the  essential  requirements  of  the  system.  The  editor  enforces 
consistency  and  enables  rapid  construction  of  an  accurate  model.  The  system  uses  the 
Transportable  Application  Environment  (TAE)  to  construct  a  graphical  user  interface 
(GUI)  for  the  prototype.  Once  the  prototype  is  specified,  the  user  translates  and 
schedules  the  prototype  and  then  automatically  creates  an  executable  driver  program  that 
incorporates  the  requirements  of  the  specification  file. 

1.     Prototype  System  Description  Language 

A  prototyping  system  description  language  (PSDL)  must  be  easy  to  read  in  order 
to  serve  as  design  documentation,  but  also  must  be  formal  enough  for  mechanical 
processing  in  the  rapid  prototyping  environment  [Ref.  14].  The  Computer  Aided 
Prototyping  System's  PSDL  computational  model  is  based  on  the  following  augmented 
graph  [Ref.  14]: 

G  =  (V,E,T(v),C(v)) 
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The  vertices,  V,  represent  operators.  The  edges,  E,  represent  data  streams.  The  timing 
and  control  constraints  T  (v),  C  (v)  can  be  applied  to  each  vertex.  The  major  constructs 
and  concepts  of  the  PSDL  are  operators,  streams,  types,  timing  constraints,  and  control 
constraints  [Ref.  11]. 

a.  Operators 

Operators  are  designated  in  the  CAPS  graphical  editor  as  either  circles  or 
rectangles.  Circles  represent  proposed  software  components  and  the  rectangles  represent 
simulated  external  systems.  Each  operator  is  identified  through  a  unique  name  and  can 
also  be  assigned  a  maximum  execution  time.  Operators  can  be  further  decomposed  and 
are  identified  as  double  circles.  Decomposed  operators  are  known  as  composite 
operators.  Any  operator  that  is  not  decomposed  is  known  as  an  atomic  operator  and  will 
be  ultimately  implemented  in  the  Ada  programming  language.  Operators  that  output  a 
value  based  solely  on  a  set  of  input  values  are  known  as  functions.  Operators  that  have 
output  based  on  one  or  more  state  variables  are  known  as  state  machines. 

b.  Streams 

Streams  represent  communications  linking  a  set  of  one  or  more  producer 
operators  to  a  set  of  one  or  more  consumer  operators.  There  are  two  possible  types  of 
streams.  The  first  type,  the  sampled  stream,  acts  as  the  equivalent  of  a  programming 
variable.  The  sampled  stream  models  continuous  data  such  as  sensor  output  and  only  the 
most  recent  data  value  is  of  interest.  The  second  type,  the  data  flow  stream  is  a  stream 
that  has  a  consuming  operator  triggered  on  every  occurrence  of  data  on  the  stream.  The 
consuming  operator  removes  each  data  occurrence  after  it  has  been  read.  Data  flow 
streams  model  discrete  transactions. 


36 


c.  Types 

PSDL  contains  standard  predefined  types  such  as  boolean,  character, 
string,  integer,  real,  and  type  constructors  (set,  sequence,  map,  tuple,  etc.).  Additionally, 
the  PSDL  has  the  ability  to  handle  user  defined  abstract  data  types. 

d.  Timing  Constraints 

Timing  is  a  critical  issue  in  modeling  real-time  software  systems.  Timers 
serve  as  a  software  stopwatch  and  are  declared  in  the  implementation  portion  of  a 
composite  operator.  Any  operator  that  is  given  a  timing  constraint  is  considered  time 
critical,  and  is  given  scripted,  static  scheduling  priority.  There  are  two  kinds  of  time 
critical  operators  -  periodic  and  sporadic.  Periodic  operators  are  assigned  a  maximum 
execution  time  and  a  period.  Additionally,  a  periodic  operator  may  be  assigned  a  finish 
within  time.  The  maximum  execution  time  is  the  scheduled  processor  time  for  execution 
of  the  operator.  The  period  controls  how  frequently  the  operator  executes  its  respective 
code.  The  finish  within  time  forces  completion  of  the  execution  during  a  portion  of  the 
period.  Sporadic  operators  are  assigned  a  minimum  calling  period  as  well  as  maximum 
response  time.  The  minimum  calling  period  places  a  lower  bound  on  the  time  between 
consecutive  input  data  arrivals.  The  maximum  response  time  places  an  upper  bound  on 
the  time  between  input  data  arrival  and  the  completion  of  execution. 

e.  Control  Constraints 

Control  constraints  provide  conditional  execution  of  operators.  Triggers 
and  execution  guards  are  used  within  the  PSDL  to  gain  conditional  execution.  The  PSDL 
allows  for  two  different  types  of  triggers  to  restrict  the  conditions  that  an  operator 
executes.  The  "by  all"  trigger  is  assigned  to  an  operator  when  the  user  desires  to  restrict 
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the  operator  to  executing  only  if  all  of  the  listed  streams  have  new  data.  The  "by  some" 
trigger  is  closely  related  to  the  "by  all"  trigger,  except  that  new  data  is  required  on  only 
one  stream  to  stimulate  execution  of  the  designated  operator.  Execution  guards  are 
conditional  statements  similar  to  an  "if-then-else"  statement,  and  are  evaluated  based  on 
data  received  from  one  or  more  of  the  streams  or  state  variables.  If  the  execution  guard 
condition  is  satisfied,  the  operator  executes.  If  the  execution  guard  is  not  satisfied,  the 
operator  simply  does  not  execute. 

2.    Additional  CAPS  Resources 

CAPS  version  1.2  was  used  for  the  development  of  the  Fuel  Automated 
Subsystem.  CAPS  continues  to  be  further  enhanced  at  the  United  States  Naval 
Postgraduate  School.  Additional  information  regarding  CAPS,  to  include  user  manuals, 
prototype  demonstrations  and  current  CAPS  projects,  can  be  found  on  the  Internet  at 
[http://wwwcaps.cs.nps.navy.mil]. 
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IV.  REQUIREMENTS  ANALYSIS  AND  MODELING 

A.  INTRODUCTION 

Various  models  have  been  developed  to  describe  the  traditional  software 
developmental  process.  While  each  of  the  models  may  vary  slightly,  it  is  generally 
agreed  that  software  development  consists  of  several  qualitatively  different  activities. 
These  distinct  activities  are  requirement  analysis,  functional  specification,  architectural 
design,  implementation,  and  evolution  [Ref.15].  Inherent  in  each  of  these  activities  is  the 
aspect  of  quality  assurance.  The  flaw  in  the  traditional  "waterfall"  software  development 
approach  is  the  late  identification  of  any  requirement  errors.  Prototyping  as  described  in 
chapter  3  solves  this  flaw  through  an  iterative  process  where  the  designer  and  user  jointly 
develop  the  initial  requirements  and  specification  for  the  critical  parts  of  the  system.  The 
requirements  then  serve  as  the  basis  to  develop  a  prototype  system  that  ultimately  can  be 
demonstrated  to  the  customer.  This  chapter  describes  the  software  developmental 
process  in  terms  of  the  software  developmental  activities  for  the  prototype  of  the  Fuel 
Automated  Subsystem. 

B.  REQUIREMENTS  ANALYSIS 

The  main  purpose  of  requirement  analysis  is  to  identify  a  customer's  needs  in 
sufficient  detail  to  plan  the  construction  of  a  software  system  to  meeting  those  needs 
[Ref.  15].  Typically,  a  model  of  the  systems  environment  is  built  that  captures  the 
problem  the  system  must  solve  in  order  to  refine  and  formalize  requirements.  The  model 
assists  in  identifying  the  goals  and  constraints  of  the  customer  organization,  which 
motivate  the  goals  and  constraints  of  the  proposed  software  system  [Ref.  15].  The 
specific  results  of  requirements  analysis  are  the  following  [Ref.  15]: 
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(1)  a  simplified  model  of  the  system's  environment. 

(2)  a  description  of  the  goals  of  the  system  and  its  functionality. 

(3)  identification  of  performance,  implementation  and  resource  constraints. 

In  order  to  achieve  these  results,  the  initial  problem  must  be  formalized,  unstated 
requirements  discovered,  and  inconsistencies  resolved.  The  general  process  of 
requirements  analysis  and  its  results  are  illustrated  below: 


ENVIRONMENTAL  MODEL 

INITIAL  PROBLEM 
STATEMENT 

REQUIREMENTS 
ANALYSIS 

GOALS 

CONSTRAINTS 

• 

Figure  13.  Derivation  of  Requirements  [Ref.  15] 

In  the  case  of  the  Fuel  Automated  Subsystem,  the  developmental  plan  for  the 
parent  ICS3  system  immediately  limits  the  systems  scope.  Phase  I  of  the  ICS3 
developmental  plan  specifically  calls  for  the  development  of  initial  operational  capability 
at  the  retail  level.  This  requirement  of  establishing  operational  capability  at  the  retail 
level  serves  as  the  initial  informal  problem  statement  for  the  Fuel  Automated  Subsystem. 
Since  retail  petroleum  operations  have  not  been  automated  and  the  informal  problem 
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statement  is  vague,  the  major  task  is  to  establish  a  precise,  testable,  and  feasible  set  of 
requirements.  Accordingly,  to  determine  the  specific  requirements  for  the  Fuel 
Automated  Subsystem  a  full  analysis  of  the  problem  domain,  retail  petroleum  operations, 
is  required. 

To  fully  analyze  retail  petroleum  operations,  a  top  down  approach  was  applied. 
Through  a  review  of  applicable  Army  petroleum  field  manuals,  technical  manuals,  and 
regulations,  retail  petroleum  operations  can  be  generally  classified  into  three  areas. 
These  general  areas  of  retail  petroleum  operations  are  as  follows: 

•  Personnel:  This  area  covers  the  personnel  assigned  to  conduct  retail 
petroleum  operations.  Examples  of  specific  personnel  functions  include 
determining  personnel  status  and  manpower  utilization. 

•  Equipment:  This  area  covers  the  physical  equipment  required  to  perform 
petroleum  operations.  Examples  of  specific  equipment  functions  include  the 
following:  maintaining  accountability  of  equipment  on-hand,  ordering 
shortages,  tracking  maintenance  and  service  schedules,  and  tracking  licensing 
status. 

•  Operational:  This  area  covers  the  core  fuel  processes  of  receiving,  storing, 
issuing,  as  well  as  conducting  quality  surveillance. 

A  review  of  the  general  classification  areas  and  functionality  listed  above  against 
the  designated  modules  of  ICS3  reveals  that  the  Personnel  and  Maintenance  Modules  of 
ICS3  fully  address  the  areas  of  personnel  and  equipment.  Currently,  the  STAMIS  of 
SIDPERS  and  SAMS  capture  the  personnel  and  maintenance  functionality  and  will  be 
incorporated  into  their  respective  ICS3  modules.    Through  interfaces  within  ICS3,  the 
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retail  petroleum  user  will  be  able  to  obtain  required  personnel  and  equipment 
information.  However,  the  operational  area  functionality  is  not  supported  in  any  current 
STAMIS  or  ICS3  module  and  hence  becomes  the  focal  point  for  the  development  of  the 
Fuel  Automated  Subsystem  contained  within  the  Supply  Support  Module. 


PERSONNEL 
MODULE 

SUPPLY  SUPPORT  MODULF 

/        Personnel  Status 
/              Manpower  Utilization 

FUEL  AUTOMATED  SUBSYSTEM 

-  RECEIVE 

-  STORE 

-  ISSUE 

-  QUALITY 
SURVEILLANCE 

SUPPLY /PROPERTY 
MODULE 

\                  On  hand 
\              Shortage 
\          Due  in 

MAINTENANCE 
MODULE 

Maintenance  Status 
Service  Schedule 

Figure  14.  ICS3  Modules  and  Retail  Petroleum  Processes 

A  further  in-depth  analysis  of  the  core  petroleum  processes  of  receiving,  storing, 
issuing,  and  quality  surveillance  yields  a  set  of  further  supporting  functions  and  activities. 
A  summary  of  the  respective  supporting  retail  petroleum  activities  and  functions  are 
listed  below: 


RECEIVE 
FUNCTIONS 

STORE 
FUNCTIONS 

ISSUE 
FUNCTIONS 

QUALITY 

SURVEILLANCE 

FUNCTIONS 

Schedule  delivery 

Determine  ullage 

Schedule  issues 

Fuel  testing 

Inspect  receiving 
equipment 

Account  for 
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Inspect  equipment 

Meter  and  lab 

instrumentation 

calibration 
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Inspect  transporter 

Sample  fuel 

Load  vehicle, 
railcar,  or  aircraft 

Schedule 

sampling  and 

testing 
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fuel 

Fuel  circulation  & 
consolidation 

Account  for  issues 

Relay  lab  results 
to  customers 
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Conduct  quality 
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interface  fuel 
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received  fuel  / 

inventory 

Conduct  quality 
assurance 

Conduct  financial 
accounting 

Conduct  financial 
accounting 

Conduct  financial 
accounting 

Figure  15.  Retail  Petroleum  Functions 

A  goal  within  the  requirements  analysis  process  is  to  determine  an  automation 
boundary;  which  functions  will  be  solved  by  the  initial  version  of  the  proposed  system, 
which  ones  will  be  included  in  later  versions  of  the  system,  and  which  ones  will  remain 
outside  the  proposed  system.  In  the  case  of  the  functions  of  receive,  store,  issue  and 
quality  surveillance  listed  above,  most  are  physical  in  nature  and  require  a  soldier  to 
perform  them.  These  physical  tasks  do  not  lend  themselves  well  to  automation  as  part  of 
the  initial  version  of  the  Fuel  Automated  Subsystem.  However,  inherent  in  all  of  the 
functions  is  the  requirement  for  petroleum  management  that  becomes  the  ultimate  focus 
for  the  initial  developmental  version  of  the  Fuel  Automated  Subsystem. 

1.  System  Environment 

The  environmental  model  serves  as  the  initial  basis  for  communication  and 
agreement   between   the   customer   and  the   developer.      The    environmental   model 
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specifically  defines  the  concepts  and  relationships  needed  for  describing  the  world  in 
which  the  proposed  system  will  operate.  These  concepts  consist  of  identifying  the 
individual  objects,  object  types,  attributes  of  objects,  and  the  relationships  between 
objects.  [Ref.  15] 

Petroleum  management  involves  maintaining  accurate  accounts  and  executing 
appropriate  quality  control  procedures  for  all  receipts,  issues  and  stocks  on  hand.  The 
current  manual  fuel  management  procedures  described  in  Chapter  2,  E  and  illustrated  in 
Figure  8  can  be  used  to  describe  an  informal  view  of  the  system  to  be 
developed/automated  as  the  Fuel  Automated  Subsystem.  A  formal  model  of  a  system  can 
also  be  constructed  by  specifying  a  finite  number  of  explicit  definitions  for  types, 
attributes,  relationships,  and  laws  to  help  develop  precise  descriptions  of  complex 
problems.  The  immediate  benefit  of  the  formal  environment  definition  is  that  it 
standardizes  the  vocabulary  of  the  system  and  allows  for  computer  aided  checking  and 
analysis.  The  formal  environment  model  for  the  Fuel  Automated  Subsystem  expressed  in 
Spec,  a  formal  specification  language,  is  located  in  Appendix  B.  Spec  is  a  formal 
specification  language  based  on  logic  that  is  detailed  in  Software  Engineering  with 
Abstractions  by  Berzins  and  Luqi  [Ref.  15]. 

2.  System  Goals 

The  requirements  for  the  Fuel  Automated  Subsystem  are  further  formalized  by 
determining  the  goals  of  the  system  and  the  functionality  it  must  perform.  With  the 
current  petroleum  management  procedures  and  environmental  model  as  a  base  line,  a 
goal  hierarchy  was  developed  to  guide  the  design  and  implementation  of  the  prototype 
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for  the  Fuel  Automated  Subsystem.    The  high-level  goals  were  derived  from  the  initial 
problem  statement  and  are  as  follows: 

Gl :   The  purpose  of  the  system  is  to  assist  the  petroleum  specialist  in  maintaining 

accurate  accountability  of  the  receipt,   storage  and  issue  of  petroleum 

products. 

Gl.l:     The  system  must  allow  the  petroleum  specialist  to  manually  input 

receipt  and  issue  documentation  (DD  Form  1348-1  from  supply 

sources). 

G1.2:     The  system  must  allow  the  petroleum  specialist  to  view  the 

current  physical  quantity  of  each  petroleum  product  being  stored. 
G1.3:     The  system  must  maintain  a  daily  database  of  all  input  petroleum 

receipts  and  issues. 
G1.4:     The  system  must  maintain  a  monthly  database  of  the  total  daily 

petroleum  receipts  and  issues. 
G1.5:     The  system  must  allow  the  petroleum  specialist  to  cancel  an 
incorrectly  input  receipt  or  issue. 
G2:  The  system  must  provide  a  means  for  the  accountable  officer  to  insure 
proper  petroleum  product  accountability. 
G2.1 :     The  system  must  allow  the  accountable  officer  to  view  the  current 

physical  quantity  of  each  petroleum  product  being  stored. 
G2.2:     The  system  must  provide  a  monthly  accountability  report. 
Each  of  the  top-level  goals  expresses  the  overall  general  objectives  of  the  Fuel 
Automated  Subsystem.    Supporting  second-level  goals  specify  in  greater  detail  how  the 
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system  is  to  accomplish  the  respective  top-level  goal.  The  complete  hierarchical  goal 
structure  is  located  in  Appendix  C,  and  is  structured  with  high  level  goals  that  have  been 
refined  into  a  set  of  supporting  lower  level  goals.  These  refined  sub-goals  express  a  level 
of  abstraction  close  to  the  proposed  system. 

3.  System  Constraints 

Implementation,  performance  and  resource  constraints  are  typically  examined  as 
part  of  requirement  analysis  [Ref.  15].  The  purpose  of  developing  the  Fuel  Automated 
Subsystem  prototype  is  to  illustrate  its  viability  as  part  of  ICS3.  As  a  result,  the  actual 
constraints  on  system  development  are  very  limited.  However,  the  following  general 
constraints  by  type  were  applied  in  the  development  of  the  Fuel  Automated  Subsystem  to 
reflect  the  current  Army  operational  environment: 

•     Implementation: 

(1)  The  current  petroleum  documentation  requirements  and  parameters  defined  in 
Army  Regulation  710-2  can  not  be  modified  during  implementation  of  the 
system. 

(2)  The  system  must  be  modular  in  design  to  capture  the  current  documentation 
features.  Daily  and  monthly  receipt/issue  databases  must  be  incorporated  as 
an  audit  trail  as  well  as  a  means  for  future  functionality  such  as  petroleum 
trend  analysis/forecasting. 

(3)  The  user  interface  to  the  system  must  incorporate  a  format  and  structure  that  is 
easy  to  learn,  efficient,  and  easy  to  remember. 

(4)  The  use  of  CAPS  as  the  prototyping  tool  for  the  development  of  the  Fuel 
Automated      Subsystem      imposes      certain      developmental      constraints. 
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Specifically,  CAPS  imposes  an  implementation  constraint  that  the  prototype 
system  be  developed  in  Ada,  the  programming  language  generated  by  CAPS. 

•  Performance: 

(1)  The  responses  of  the  Fuel  Automated  Subsystem  must  be  fast  enough  as  not  to 
hinder  fuel  receipt  and  issue  operations. 

(2)  The  system  must  maintain  1 00%  accuracy  of  both  the  physical  and  "book" 
quantity  of  fuel  stored. 

•  Resource: 

(1)  The  budget  for  final  vendor  implementation  of  the  Fuel  Automated  Subsystem 
will  be  limited.  The  system  must  be  developed  for  full  use  with  currently 
fielded  petroleum  and  personnel  authorizations.  No  new  equipment  will  be 
developed  or  personnel  authorized  to  support  this  system. 

(2)  The  system  prototype  must  be  fully  developed  by  1999  to  comply  with  the 
ICS3  phased  developmental  plan. 

4.    Model  Summary 

A  context  summary  provides  a  general  overview  of  the  proposed  system. 
Specifically,  the  context  summary  lists  the  proposed  system  and  shows  the  user  classes 
and  the  types  of  objects  the  system  controls  [Ref.  15].  The  context  summary  for  the  Fuel 
Automated  Subsystem  using  the  Spec  language  is  as  follows: 
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Fuel_Automated_Subsystem 

Used_by :  petroleum_specialist,  accountable_officer 
Controls  :  individual_fuel_receipts,  individual_fuel_issues, 
consolidated_daily_log_of_receipts/issues, 
monthly_log_of_all_daily_receipts/issues, 
monthlyaccountabilitycalculations 


Figure  16.  Fuel  Automated  Subsystem  Context  Summary 

Additionally,  the  context  summary  can  be  illustrated  in  graphical  form.  The 
graphical  context  summary  serves  as  a  valuable  tool  for  expressing  the  proposed  system 
to  individuals  unfamiliar  with  the  system's  scope.  The  graphical  context  summary  for  the 
Fuel  Automated  Subsystem  is  as  follows: 
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Figure  17.  Fuel  Automation  Subsystem  Context  Diagram 
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C.  PROTOTYPE  DESIGN 

In  the  prototyping  cycle,  a  prototype  system  is  designed  from  the  result  of 
requirements  analysis.  Inherent  in  the  design  of  a  prototype  is  the  determination  of  both 
the  functional  specification  and  architectural  design  of  the  system.  The  functional 
specification  describes  the  external  interfaces  along  with  the  concepts  needed  to  use  the 
proposed  system,  while  the  architectural  design  describes  both  the  internal  and  external 
interfaces  along  with  the  concepts  needed  to  build  the  proposed  system  [Ref.  15].  The 
main  goal  of  architectural  design  activity  is  to  progressively  decompose  the  proposed 
system  into  a  smaller  set  of  independent  modules  [Ref.  15].  Large  systems  must  be 
decomposed  into  modules  that  enable  a  team  of  developers  to  work  on  different  parts  of 
the  system  concurrently.  Through  concurrent  development,  each  team  can  conduct 
independent  analysis  and  design  of  individual  modules  while  developing  an  accurate 
estimation  of  costs  and  schedules.  The  modules  must  be  decomposed  through  many 
levels  of  abstraction  until  the  sub-modules  either  match  existing  reusable  software 
components  or  are  simple  enough  to  be  directly  implemented.  The  important  goals  of  the 
decomposition  are  feasibility  and  ease  of  implementation.  The  specific  results  of 
architectural  design  are  the  following  [Ref.  15]: 

(1)  Modules  of  the  decomposed  system  should  be  understandable  in  isolation. 

(2)  All  interactions  between  modules  should  be  explicitly  defined. 

(3)  Each  module  should  be  small  and  simple. 
1.    Modules 

In  accordance  with  the  activity  of  architectural  design,  this  section  analyzes  the 
particular  requirements  of  the  individual  modules  of  the  Fuel  Automated  Subsystem.   A 
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brief  description  of  the  attributes  of  each  module  identified  in  the  Army  petroleum 
management/accountability  process  is  included.  The  listed  modules  only  represent  the 
critical  modules  required  for  development  of  the  prototype  system.  Additional  modules 
will  be  required  in  later  system  development  to  enhance  the  overall  systems  capability. 

•  Bulk  Receipt  Graphical  User  Interface: 

The  bulk  receipt  graphical  user  interface  allows  a  petroleum  specialist  to 
manually  input  parameters  extracted  from  DD  Form  1348-1  during  the  receipt  of 
bulk  petroleum.  The  petroleum  specialist  enters  the  type  of  fuel  received, 
quantity  in  gallons,  and  the  document  number  of  the  receipt  as  required  by  Army 
Regulation  710-2. 

•  Other  Receipt  Graphical  User  Interface: 

The  other  receipt  graphical  user  interface  captures  all  other  possible  petroleum 
receipt  scenarios  (i.e.  vehicle/aircraft  defueling,  etc.).  The  graphical  user 
interface  allows  a  petroleum  specialist  to  manually  enter  the  type  of  fuel  received, 
quantity  in  gallons,  an  identification  number  from  the  source,  and  the  source  unit 
as  required  by  Army  Regulation  710-2. 

•  Bulk  Issue  Graphical  User  Interface: 

The  bulk  issue  graphical  user  interface  allows  a  petroleum  specialist  to  manually 
input  parameters  extracted  from  DA  Form  2765-1  during  the  issue  of  bulk 
petroleum.  The  petroleum  specialist  enters  the  type  of  fuel  issued,  quantity  in 
gallons,  the  document  number  of  the  issue,  the  receiving  unit,  and  the  name/rank 
of  the  receiver  as  required  by  Army  Regulation  710-2. 
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•  Other  Issue  Graphical  User  Interface: 

The  other  issue  graphical  user  interface  allows  a  petroleum  specialist  to  manually 
input  parameters  required  by  Army  Regulation  710-2  for  all  other  fuel  issues 
other  than  bulk  issues.  These  other  issues  include  fuel  issues  made  directly  into, 
or  specifically  identifiable  to,  a  consuming  end  item.  An  example  of  this  type  of 
issue  is  to  a  vehicle  or  an  M2  burner  unit.  The  petroleum  specialist  enters  the 
type  of  fuel  issued,  quantity  in  gallons,  the  receiving  vehicle  bumper 
number/equipment  name,  the  receiving  unit,  and  the  name/rank  of  the  receiver. 

•  Daily  Receipt  and  Issue  Consolidator: 

The  daily  receipt  and  issue  consolidator  serves  as  a  the  processor  of  all  user  input 
receipts  and  issues  for  diesel,  mogas  and  jet  fuel  types.  The  receipt  and  issue 
consolidator  stores  all  receipts  and  issues  in  a  database  as  a  historical  audit  trail. 
The  receipt  and  issue  consolidator  also  maintains  a  daily  totalizer  of  all  receipts 
and  issues  per  fuel  type. 

•  Diesel  Storage  Tank: 

The  diesel  storage  tank  module  emulates  the  physical  quantity  of  diesel  fuel  on- 
hand  and  available  for  issue.  Physical  storage  quantity  is  measured  in  gallons. 

•  Jet  Storage  Tank: 

The  jet  storage  tank  module  emulates  the  physical  quantity  of  jet  fuel  on-hand  and 
available  for  issue.  Physical  storage  quantity  is  measured  in  gallons. 

•  Mogas  Storage  Tank: 

The  mogas  storage  tank  module  emulates  the  physical  quantity  of  unleaded  fuel 
on-hand  and  available  for  issue.  Physical  storage  quantity  is  measured  in  gallons. 
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•  Monthly  Receipt  and  Issue  Consolidator: 

The  monthly  receipt  and  issue  consolidator  serves  as  a  processor  of  the  daily  total 
receipts  and  issues  for  diesel,  mogas,  and  jet  fuel  types.  The  monthly  receipt  and 
issue  consolidator  stores  the  daily  total  receipts  and  issues  per  fuel  type  in  a 
database  as  a  historical  audit  trail.  The  receipt  and  issue  consolidator  also 
maintains  a  monthly  totalizer  of  all  receipts  and  issues  per  fuel  type. 

•  Monthly  Accountability  Report  Generator: 

The  monthly  accountability  report  generator  utilizes  the  physical  quantity  of  fuel 
stored  on  the  first  day  of  the  month,  the  monthly  receipts  and  issues,  and  the 
physical  quantity  of  fuel  stored  on  the  last  day  of  the  month  to  calculate  the 
monthly  gain/loss  and  allowable  gain/loss.  If  actual  loss  exceeds  the  allowable 
loss,  the  accountability  report  generator  signals  the  accountable  officer. 

•  Accountable  Officer  Graphical  User  Interface: 

The  accountable  officer  user  interface  allows  the  accountable  officer  to  monitor 

the  current  quantity  of  fuels  on  hand  and  the  monthly  accountability  report. 

2.    Basic  Model 

Based  upon  the  identified  modules,  a  basic  architectural  model  of  the  Fuel 
Automated  Subsystem  was  constructed.  The  systems  architecture  for  daily  fuel 
accountability/management  functionality  is  illustrated  as  follows: 
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Figure  18.  Basic  Model  Design  for  Daily  Fuel  Accountability 

The    systems    architecture    for    monthly    fuel    accountability/management    is 
illustrated  as  follows: 
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Figure  19.  Basic  Model  Design  for  Monthly  Fuel  Accountability 

From  these  initial  models,  the  Fuel  Automated  Subsystem  software  architecture 

was  constructed  using  CAPS. 
D.  CAPS  PROTOTYPE 

The  basic  model  developed  in  the  previous  section  identified  the  Fuel  Automated 
Subsystem's  high  level  functional  operators,  their  interaction,  and  corresponding  data 
flow.  Using  the  basic  model  as  a  guide,  the  system  architecture  for  the  Fuel  Automated 
Subsystem  prototype  was  developed  using  CAPS. 

1.  Graphical  Editor 

Within  the  CAPS  graphical  editor,  an  initial  high-level  system  architecture  for  the 
Fuel  Automated  Subsystem  was  developed.  In  the  graphical  editor,  round  bubbles 
represent  proposed  software  modules,  rectangular  boxes  indicate  external  systems 
interacting  with  the  proposed  software,  and  connecting  streams  represent  interactions 
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between  internal  and/or  external  modules.  The  high-level  architecture  was  further 
decomposed  to  reach  atomic  level  operators  that  demonstrated  specific  functionality 
which  could  easily  be  implemented.  The  complete  high-level  system  architecture  and 
subsequent  operator  decompositions  for  the  Fuel  Automated  Subsystem  are  included  in 
Appendix  D.  The  following  high-level  components  were  used  in  the  CAPS  graphical 
editor  to  model  the  Fuel  Automated  Subsystem.  Each  component's  role  and  properties 
are  briefly  described  below. 

•  gui_bulk_receipt 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  bulk  receipt 
parameter  input.  The  GUI  provides  a  means  of  manual  input  of  fuel  type, 
quantity  and  document  number.  Accordingly,  the  operator  produces  output 
streams  of  bulkrcptfueltype,  bulkrcptqty,  and  bulkrcptdocnumber. 
The  bulkrcptfueltype  stream  is  an  integer  type,  corresponding  to  a  radio 
button  selection.  The  bulkrcptqty  stream  is  an  integer  type  since  all  fuel 
receipt  quantities  are  measured  in  whole  gallons.  The  bulkrcptdocnumber 
stream  is  a  string  type  to  allow  for  alphanumeric  input. 

•  gui_other_receipt 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  all  other  fuel 
receipt  input.  The  GUI  provides  a  means  of  manual  input  of  fuel  type, 
quantity,  a  source  identification  number,  and  the  sources  unit.  Accordingly, 
the  operator  produces  output  streams  of  othrcpt  fueltype,  othrcptqty, 
othrcptsource,  and  othrcptsourceunit.  The  othrcptfueltype  stream  is 
an  integer  type,  corresponding  to  a  radio  button  selection.  The  othrcptqty 
stream  is  also  an  integer  type.  The  othrcptsource  and  othrcptsourceunit 
streams  are  string  types  to  allow  for  alphanumeric  input. 

•  gui_bulk_issue 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  bulk  issue 
parameter  input.  The  GUI  provides  a  means  of  manual  input  of  fuel  type, 
quantity,  document  number,  receiving  unit,  and  the  name  of  the  receiver. 
Accordingly,  the  operator  produces  output  streams  of  bulkissfueltype, 
bulkissqty,  bulkissdocnum,  bulkrcvunit,  and  bulkrcvname.  The 
bulkissfueltype  stream  is  an  integer  type,  corresponding  to  a  radio  button 
selection.     The  bulkissqty  is  also  an  integer  type  since  all  issues  are 
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measured  in  whole  gallons.  The  bulkissdocnumber,  bulkrcvunit,  and 
bulkrcvname  are  string  types  to  allow  for  alphanumeric  input. 

•  gui_other_issue 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  all  other  fuel 
issue  parameter  input.  The  GUI  provides  a  means  of  manual  input  of  fuel 
type,  quantity,  identification  number/nomenclature  of  the  receiving  piece  of 
equipment,  owning  unit,  and  the  name  of  the  receiver.  Accordingly,  the 
operator  produces  output  streams  of  eq_iss_fuel_type,  eq_iss_qty,  eq_iss_id, 
eq_iss_unit,  and  eq_iss_name.  The  eq_iss_fuel_type  stream  is  an  integer 
type,  corresponding  to  a  radio  button  selection.  The  eq_iss_qty  is  also  an 
integer  type.  The  eq_iss_id,  eq_iss_unit  and  eq_iss_name  streams  are  string 
types  that  allow  for  alphanumeric  input. 

•  daily_consolidator 

This  is  a  composite  operator  that  processes  and  stores  all  daily  fuel  receipt  and 
issue  transactions.  The  dailyconsolidator  receives  all  of  the  streams 
generated  from  the  four  receipt  and  issue  GUIs  as  input.  Within  the  daily 
consolidator,  there  are  two  similar  processing  paths  that  ultimately  converge 
at  the  dailyreporter  operator.  The  first  path  is  for  receipts,  and  begins  with 
the  bulk_rcpt_processor,  and  oth_rcpt_processor.  The  other  path  is  for  issues, 
and  begins  with  the  bulk_iss_processor,  and  oth_iss_processor.  Each  of  these 
processors  receives  the  fuel  type  and  quantity  streams  from  their 
corresponding  GUI  as  input.  With  the  fuel  type  and  quantity  data  present,  the 
processor  produces  an  enable  signal  that  triggers  either  the  receipt  or  issue 
processor  depending  on  the  type  of  transaction.  The  receipt  or  issue  processor 
determines  the  fuel  type  and  produces  a  stream  to  the  respective  storage  tank 
to  update  the  storage  volume  and  a  stream  to  the  respective  fuel  type  totalizer. 
The  receipt  or  issue  totalizers  receive  the  new  quantity  and  add  the  value  to  a 
corresponding  state  stream  that  holds  the  daily  total.  The  state  stream  serves 
as  input  to  the  dailyreporter,  a  periodic  operator  that  executes  every  hour, 
with  a  maximum  execution  time  and  finish  within  time  of  750  msec.  The 
normal  period  for  the  dailyreporter  would  be  24  hours,  but  was 
proportionately  reduced  to  one  hour  to  demonstrate  the  prototype.  The 
dailyreporter  produces  a  stream  capturing  each  fuel  types'  daily  total  receipts 
and  issues,  and  also  reinitializes  all  of  the  totalizers.  Also  within  the 
dailyconsolidator  is  a  relational  database  composed  of  four  tables  that 
capture  all  of  the  streams  produced  from  the  four  GUIs  as  a  historical  audit 
trail. 

•  monthlyconsolidator 

This  is  a  composite  operator  that  tallies  and  stores  all  daily  receipts  and  issues. 
The  monthly  consolidator  receives  all  of  the  daily  fuel  type  receipt  and  issue 
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totals  produced  by  the  dailyreporter.  Within  the  monthlyconsolidator  are 
six  monthly  totalizers  for  the  receipt  or  issue  per  fuel  type.  Each  monthly 
totalizer  receives  a  new  daily  total  quantity  and  adds  the  value  to  a 
corresponding  state  stream  that  holds  the  monthly  total.  The  state  streams 
serve  as  input  to  the  monthlyreporter,  a  periodic  operator  that  executes  every 
30  hours,  with  a  maximum  execution  time  and  finish  within  time  of  750  msec. 
The  normal  period  for  the  monthlyreporter  would  be  720  hours 
(approximately  one  month),  but  was  proportionately  reduced  to  30  hours  to 
demonstrate  the  prototype.  The  monthyreporter  produces  a  stream  capturing 
each  fuel  types'  monthly  total  receipts  and  issues,  and  also  reinitializes  all  of 
the  monthly  totalizers.  Also  within  the  monthlyconsolidator  is  a  relational 
database  composed  of  two  tables  that  capture  all  of  the  daily  receipt  and  issue 
totals  per  fuel  type  as  a  historical  audit  trail. 

•  accountability_op 

This  is  a  composite  operator  that  calculates  monthly  fuel  accountability. 
Within  the  accountabilityop  are  three  accountability  calculators,  one  per  fuel 
type.  Each  accountability  calculator  receives  the  respective  total  monthly 
receipts,  total  monthly  issues,  the  current  fuel  quantity  available  in  storage, 
and  the  monthly  opening  inventory  as  inputs.  From  these  streams,  the 
accountability  calculator  determines  the  monthly  gain/loss,  allowable 
gain/loss,  and  compares  the  two  values.  Based  upon  the  comparison,  the 
accountability  calculator  produces  a  boolean  tolerance  output  stream. 

•  gui_acc_officer 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  displaying 
monthly  accountability  results  to  the  accountable  officer.  The  GUI  receives 
the  boolean  streams  tolerance  Jet,  tolerancedf,  and  tolerancemg 
representing  whether  the  monthly  accountability  tolerance  per  fuel  type  has 
been  met. 

•  gui_fuel_on_hand 

This  is  a  non-time  critical  operator  that  represents  the  GUI  for  displaying  the 
current  amounts  of  diesel,  mogas,  and  jet  fuel  on-hand  and  available  for  issue. 
The  operator  receives  the  dieselqtyavailable,  mogasqtyavailable,  and 
jetqtyavailable  streams  that  represent  the  gallon  quantity  of  each  fuel  in 
storage  as  input.  A  gaging  operator  within  each  respective  fuel  tank  external 
operator  produces  these  streams. 

•  diesel_tank 

This  is  an  external  composite  operator  representing  the  stored  quantity  of 
diesel  fuel.    The  composite  operator  has  input  streams,  dieselrcptqty  and 
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dieselissqty,  that  represent  integer  quantities  of  diesel  fuel  which  have  been 
received  or  issued.  Within  this  composite  operator  are  the  external  atomic 
operators  of  dieseladdition  and  dieselsubtraction.  The  dieseladdition 
operator  adds  the  dieselrcptqty  stream  value  to  the  dieselvolume  state 
stream  value  to  simulate  an  increase  in  diesel  fuel  storage  volume  due  to  a 
receipt.  The  dieselsubtraction  operator  subtracts  the  dieselissqty  stream 
value  from  the  dieselvolume  state  stream  value  to  simulate  a  decrease  in 
diesel  fuel  storage  volume.  Both  the  addition  and  subtraction  operators 
produce  an  output  integer  state  stream,  dfqtyon  hand.  The  diesel  gage 
operator  receives  the  dfqtyonhand  stream  and  simulates  the  physical 
gaging  of  the  diesel  storage  tanks  to  determine  the  quantity  available  for  issue. 
Accordingly,  the  dieselgage  operator  outputs  the  integer  stream 
dieselqtyavailable. 

•  mogastank 

This  is  an  external  composite  operator  representing  the  stored  quantity  of 
mogas.  The  composite  operator  has  input  streams,  mogasrcptqty  and 
mogas  issqty,  that  represent  integer  quantities  of  mogas  which  have  been 
received  or  issued.  Within  this  composite  operator  are  the  external  atomic 
operators  of  mogasaddition  and  mogassubtraction.  The  mogas  addition 
operator  adds  the  mogasrcptqty  stream  value  to  the  mogasvolume  state 
stream  value  to  simulate  an  increase  in  mogas  fuel  storage  volume  due  to  a 
receipt.  The  mogassubtraction  operator  subtracts  the  mogasissqty  stream 
value  from  the  mogasvolume  state  stream  value  to  simulate  a  decrease  in 
mogas  storage  volume.  Both  the  addition  and  subtraction  operators  produce 
an  output  integer  state  stream,  mgqtyon  hand.  The  mogas  gage  operator 
receives  the  mgqtyonhand  stream  and  simulates  the  physical  gaging  of  the 
mogas  storage  tanks  to  determine  the  quantity  available  for  issue. 
Accordingly,  the  mogasgage  operator  outputs  the  integer  stream 
mogasqtyavailable . 

•  jet_tank 

This  is  an  external  composite  operator  representing  the  stored  quantity  of  jet 
fuel.  The  composite  operator  has  input  streams,  jetrcptqty  and  jetiss  qty, 
that  represent  integer  quantities  of  jet  fuel  which  have  been  received  or  issued. 
Within  this  composite  operator  are  the  external  atomic  operators  of 
jetaddition  and  jetsubtraction.  The  jetaddition  operator  adds  the 
jetrcptqty  stream  value  to  the  jetvolume  state  stream  value  to  simulate  an 
increase  in  jet  fuel  storage  volume  due  to  a  receipt.  The  jetsubtraction 
operator  subtracts  the  jetissqty  stream  value  from  the  jetvolume  state 
stream  value  to  simulate  a  decrease  in  jet  fuel  storage  volume.  Both  the 
addition  and  subtraction  operators  produce  an  output  integer  state  stream, 
jetqtyonhand.  The  jet  gage  operator  receives  the  jetqtyonhand  stream 
and  simulates  the  physical  gaging  of  the  jet  storage  tanks  to  determine  the 
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quantity  available  for  issue.    Accordingly,  the  jetgage  operator  outputs  the 
integer  stream  jetqtyavailable. 

Further  in-depth  atomic  operator  descriptions  can  be  found  in  the  prototype  description 

language  code  included  in  Appendix  E. 

2.  Prototyping  Description  Language 

From  the  completed  graphical  representation  of  the  Fuel  Automated  Subsystem, 
CAPS  automatically  generated  a  prototype  description  language  (PSDL)  prototype.  The 
PSDL  prototype  is  composed  of  the  set  of  operators  identified  in  the  graphical  editor's 
system  graphs.  Every  PSDL  operator  is  unambiguously  defined  through  a  specification 
and  implementation  section  [Ref.  11].  The  specification  section  defines  the  operators 
interface  and  provides  an  informal  description  of  the  operator's  behavior  [Ref.  11].  The 
implementation  section  contains  either  an  architectural  description  that  defines  the 
decomposition  of  composite  operators  or  code  interface  descriptions  for  atomic  operators 
[Ref.  11].  The  Fuel  Automated  Subsystem's  complete  PSDL  code  is  included  in 
Appendix  E. 

3.  Translating  and  Scheduling 

The  PSDL  program  serves  as  the  basis  for  generating  compilable  and  executable 
prototype  code.  The  CAPS  translator  successfully  transformed  the  Fuel  Automated 
Subsystem  PSDL  program  in  Appendix  E  into  Ada  code  that  implemented  all  supervisory 
aspects  of  the  prototype.  Specifically,  the  CAPS  translator  generated  the  CAPS  support 
packages  and  the  main  prototype  procedure  that  implemented  the  data  streams,  execution 
guards,  output  guards,  operation  triggers  and  timers  [Ref.  16].  The  support  package  and 
main  procedure  ultimately  became  part  of  the  CAPS  generated  supervisor  module 
fuelsubsystem.a. 
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Next,  the  CAPS  scheduler  was  successfully  evoked  to  create  the  remaining 
portions,  the  static  and  dynamic  schedules,  of  the  fuelsubsystem.a  module.  The  CAPS 
scheduler  specifically  used  the  timing  information  contained  within  the  PSDL  program  to 
determine  schedule  feasibility,  and  to  create  the  respective  code  to  implement  the 
schedule.  Using  the  earliest  deadline  scheduling  algorithm,  the  CAPS  scheduler 
determined  a  feasible  schedule  for  the  Fuel  Automated  Subsystem.  CAPS  implemented 
time  critical  operators  in  the  static  schedule,  while  non-time  critical  operators  were 
implemented  in  the  dynamic  schedule.  Both  the  static  and  dynamic  schedules  created  by 
the  CAPS  scheduler  completed  the  fuelsubsystem.a  supervisor  module.  The 
fuelsubsystem.a  supervisor  module  for  the  Fuel  Automated  Subsystem  is  included  in 
Appendix  F. 

4.    Implementation 

The  CAPS  translation  and  scheduling  process  constructed  Ada  template 
files/packages  for  all  user-defined  types  and  atomic  operators.  From  the  template 
files/packages,  Ada  implemetation  files  were  written  for  all  user-defined  types  and 
atomic  operators.  The  only  user-defined  data  type  used  in  the  Fuel  Automated 
Subsystem  prototype  was  textstring.  The  type  textstring  was  declared  to  allow  the 
system  user  to  input  alphanumeric  parameters  such  as  unit  name/numbers,  document 
numbers,  etc.,  from  the  graphical  user  interfaces.  The  textstring  type  was  declared  as  a 
subtype  of  type  string  with  a  length  of  100  characters. 

Also  from  the  template  files,  all  atomic  operators  were  implemented  in  Ada  to 
simulate  the  expected  behavior  of  the  operator.  With  the  user-defined  text  string 
declared,  all  atomic  operators  implemented,  and  the  fuel  subsystem. a  supervisor  module, 
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the  CAPS  compiler  (Sun/Ada)  succeeded  in  generating  executable  code  for  the  Fuel 
Automated  Subsystem  with  no  errors  or  warnings.  To  test  the  system's  simple 
functionality,  the  periods  of  the  dailyreporter  and  monthlyreporter  were  reduced,  and 
all  atomic  operators  were  enhanced  to  print  operator  specific  messages  to  the  prototype 
console  window.  The  complete  Ada  code  for  the  fuelsubsystem.a  supervisor  module, 
the  atomic  operators  without  the  test  message  stream  output,  and  the  textstring 
declaration  is  in  Appendix  F. 

To  further  augment  the  Fuel  Automated  Subsystem  prototype,  proposed  GUIs  for 
bulk  receipts,  other  receipts,  bulk  issues,  other  issues,  fuel  on  hand,  and  monthly 
accountability  were  constructed  using  TAE+,  a  graphical  user  interface  generator.  While 
simple  in  construct,  the  GUIs  present  a  tangible  image  of  the  system  to  the  user.  The 
GUIs  incorporate  the  required  CAPS  input  parameters  for  fuel  receipts  and  issues.  Also, 
the  GUIs  display  the  available  quantity  of  fuel,  and  display  whether  monthly 
accountability  tolerances  are  being  met  in  accordance  with  the  CAPS  output  parameters. 
The  proposed  GUIs  for  the  Fuel  Automated  Subsystem  prototype  are  included  in 
Appendix  G.  After  customer  review,  the  proposed  GUIs  may  be  further  modified  and/or 
integrated  into  the  CAPS  code. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  SIGNIFICANCE  OF  THE  PROTOTYPE 

The  Fuel  Automated  Subsystem  represents  the  initial  step  in  the  automation  of  the 
combat  service  support  discipline  of  "fuel"  as  mandated  in  the  February  1996,  TRADOC 
Pamphlet  525-5,  Force  XXI  Operations.  As  a  result  of  a  complete  analysis  of  current 
Army  petroleum  operations,  the  task  of  automating  petroleum 
accountability/management  was  identified  as  the  core  process  in  any  fuel  automation 
system.  Within  the  constraints  of  the  ICS3  developmental  process,  the  scope  of 
automating  petroleum  accountability/management  was  further  restricted  to  retail 
operations.  With  the  target  domain  of  retail  petroleum  accountability/management 
identified,  the  requirements  analysis  process  produced  a  goal  hierarchy  and 
environmental  model  for  the  proposed  system. 

From  the  developed  goal  hierarchy  and  environmental  model,  a  prototype  of  the 
Fuel  Automated  Subsystem  was  successfully  developed  using  CAPS  to  illustrate  the 
systems'  viability.  The  CAPS  approach  for  implementing  the  Fuel  Automation 
Subsystem  prototype  provided  an  integrated  set  of  tools  that  permitted  the  detailed 
specification,  design,  and  implementation  of  the  prototype  system  in  a  single 
developmental  environment.  The  CAPS  developmental  environment  also  provided  the 
ability  to  simultaneously  make  prototype  design  changes  to  the  PSDL  specification  and 
the  Ada  prototype  source  code.  Through  the  use  of  the  graphical  user  interface  generator, 
TAE+,  proposed  GUIs  were  developed  to  present  a  tangible  image  of  the  system  to  the 
user. 
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The  initial  Fuel  Automated  Subsystem  prototype  developed  in  this  thesis  can  now 
be  reviewed  and  verified  by  the  customer,  the  Combat  Developments  Branch  at 
CASCOM.  Based  upon  the  feedback  from  the  Combat  Development  Branch,  the 
prototype  can  be  modified  accordingly  to  reflect  any  new  customer  requirements.  This 
iterative  prototyping  process  can  continue  until  the  customer  is  ultimately  satisfied  with 
the  system. 
B.  RECOMMENDED  FUTURE  WORK 

The  work  completed  on  the  CAPS  Fuel  Automated  Subsystem  leaves  open  the 
possibility  of  future  system  improvements  and  enhancements.  Specifically,  the  following 
prioritized  list  addresses  potential  areas  of  future  work  and  research: 

•  The  TAE+  graphical  user  interfaces  contained  in  Appendix  G  need  to  be 
validated  and  integrated  into  the  CAPS  prototype  Ada  code  in  order  to  fully 
evaluate  the  Fuel  Automated  Subsystem's  performance  and  suitability. 

•  Exception  guards  within  the  various  operators  should  be  added  to  enhance  the 
prototype's  fault  tolerance. 

•  The  daily  and  monthly  relational  database  operators  in  the  prototype  have  not 
been  fully  implemented.  Currently,  the  operators  take  the  input  stream 
parameters  and  assign  them  to  variables  in  order  to  simulate  storage  in  a 
database.  A  commercially  available  database  should  be  integrated  into  the 
prototype  to  more  closely  simulate  the  desired  system  functionality. 

•  The  current  Fuel  Automated  Subsystem  prototype  does  not  address  hardware 
issues  such  as  the  system's  target  hardware  platform.  Once  a  target  platform 
is  identified,  the  CPU  ratio  within  CAPS  should  be  modified  to  reflect  the 
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target   platform   and   the   prototype's   performance   can   be   re-tested   and 

reevaluated. 

The  current  Fuel  Automated  Subsystem  prototype  has  not  incorporated  any 

interaction  with  other  ICS3  modules.   Once  other  ICS3  module  interfaces  are 

clearly  defined,  the  Fuel  Automated  Subsystem  must  be  integrated.     For 

example,  the  Fuel  Automated  Subsystem  must  be  inter-linked  with  the  ICS3 

financial  module  to  insure  that  the  cost  of  fuel  issues  are  deducted  from  unit 

budgets. 

While  the  Fuel  Automated  Subsystem  addresses  the  critical  issues  revolving 

around  petroleum  management/accountability,  the  prototype  leaves  room  for 

other   additional   applications   and   extensions.      For   example,    additional 

functionality  such  as  the  ability  to  perform  fuel  consumption  trend  analysis 

could  be  included. 
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APPENDIX  A 


The  following  fuel  management  documents  and  reports  are  currently  in  use: 
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Figure  1.  DD  Form  1348-1:  Single  Line  Item  Release  /  Receipt  Document 


fempbaJ  Bfe^TO5Sg§ 


I- CcA   3d    Sir  8^ 

ApO  o9Xbo 


Ik 


'"  $34    POL    doMPAfi/V 


T?^ 


i-rH-»; 


wu  FFK"P"ry  i  |.  if* 


ii 


#■ 


tt 


TtWlllJ. 


*pn» 


■5 


n — i — «*** — '   ■    i  <}"t 
?/  3ooo  i  &o  /  St  t 


A 


■<W«tW" 


nWi: 


J_l J_l 


2^V^,  tjoolt. 


4m 


1  !•  ■  '  '  ' 

■L  I    i    i    '    ' 


gaih  ^ ■*■:  i~  b  i  '&&*&=£§'  b  - --*- 


P  Pti  nil.'lllin    11.111'IIH    (•■■>'i*M    ?M.V^    iHiMt    atlMi 


Figure  2.  DA  Form  2765-1:  Request  for  Issue  or  Turn-in 


67 


DAILY  ISSUES  OF  PETROLEUM  PRODUCTS 

^3r  urn  o>  thu  *orm.  tt*  t-H  ;03  1 :  ir<  oaaantni  agin:,  n  DCSlQG 

PAGE  MO                  NO.  OP  PAGES 

/ 

VEHICLE  USA 
REGISTRATION 

NUMBER 

TYPE.  GRADE.  AND  UNITOF  ISSUES  FOR  EACH 
PRODUCT  USED 

ORGANIZATION 

ANIO 

ADDRESSES 

{Incliciile  fence:  A,  Am»u  . 

AF.  Aif  F titvc .  Y  Nbw, 

M.  Marine  C oa>» ) 

SIGNATURE 
GRADE 

,S!W£S£4X. 

RECEIPTS  ^>9^_ 

I 

3f 
6 

■J 

i 

Hi 

4t34oofJL 

Soo 

P%ufh 

iZSAoi 

JLi 

/*r  Bo* 

b.Q*f*MtPfl 

<?i34oo¥7 

Soc 

ft    w 

IAZ5AI 

¥*. 

'1 

<?t3<lonJL 

foo 

f.Uu* 

f8JLUo 

to 

3d  A/LTY                                            ^ 

i 

i 

,. 

TOTAL 
RECEI^S 

b 

X 

X 

Soo 

fooo 

TOTAL. 

issues 

5/ 

*JL 

X 

fe 

X 

POST,  CAMP  OH  STATION 

Ft  Btosxr,   5<L 

OATE 

15NAY  /<?& 

SIGNATURE  OF  ATTEND 

AWT 

|*IA     FORM   '^RA'?                                                          £01 TIONOM  OCT  ro  is  OBSOLETE. 

Figure  3.  DA  Form  3643:  Daily  Issues  of  Petroleum  Products 


68 


MONIHLY  MBtlUCt  W  1UUU  W  ttTtlOtEU" 

maoucu  and  omratino  iuwu  i t 

POST.  OUW  <MI  STATHM 

PC   Bright.    SC 

month                    Ivouexcn  «a. 

Hoy    1986  |                        0006 

BATE 

ll>»n  IWfc  p*1  ut  u*js  of  iwm  In  t.rt  bioJiki  mal  /ex.,  ™iwr  of.  <?£  )Q,  au*<!. 

ISSUUS  rtVrf'.S/ 

KLCHU'K  tUAttf 

ma 

* 

OF 

other 

OTIUfl 

oniiB 
r 

mo 

T 

1 

OTHER 

omin 

k 

OTHER 
l 

OTHER 

1         ( 

152 

« 

0 

KM 

3 

"0 

*       1 

q       

a 

a 

D 

5553 

"0  " 

3 

303) 

15 

i*m 

n 

n 

D 

4 

_2L<LJ 1 

» 

0 

0 

0 

0 

» 

M3) 

725 

47*0 

b 

0 

7500 

• 

«j2 

120 

4740 

snaq 

5000 

710D 

J 

7297 

200 

t>039 

10000 

15000 

0 

[       * 

U  39 

4283 

113? 

7500 

0 

I5O00 

t       1 

D 

0 

0 

Jt 

fi 

0 

10 

0 

D 

0 

0 

D 

0 

11 

!S7? 

0 

0 

0 

0 

0 

13 

D 

a 

a 

S 

a 

0 

1] 

40* 

1728 

4780 

woo 

<" 

7500 

I     u 

Hi 

2H3 

911 

500 

5000 

0 

u 

IM 

10336 

c-ii 

0 

30000 

15000 

11 

0 

0 

0 

0 

0 

0 

1? 

!1 

6 

446 

0 

0 

0 

ia 

2538 

MM 

(298 

0 

0 

□ 

IB 

0 

0 

0 

0 

0 

0 

M 

7B3 

234 

4*3 

5000 

0 

0 

21 

1123 

B334 

783 

0 

7VK1 

0 

7} 

227 

343 

-J47S 

0 

_fl 

7500 

■a 

117 

o 

7247 

12300 

5000 

5M0 

24 

0 

o 

0 

0 

0 

0 

» 

0 

0 

0 

0 

0 

0 

M 

mil 

15774 

7523 

o     . 

ft 

0 

17 

■M 

2123 

1227 

a 

0 

30000 

a 

111 

1157 

780 

_2 

IZSOft 

0 

■ 

34  3 

987 

433 

„.5W„._ 

..6 

0 

» 

0 

735 

n 

_£ 

Jl 

0 

US 

112 

483 

ul 

0 

5000 

0 

TOTAL 

41377 

53807 

44177 

53J00 

90000 

95000 

TOTAL 

0ALJ 

41377 

53807 

44177 

53500 

90000 

95000 

IICNATUR.C gr JtOOOUNTAaLE  tmOfttTTY  QfHCltt 

ORAM 

ILT 

POSTED  TO  STOCK  RECORD  ACC0UKT  »V 

BATE 

1  Jwae   19H6 

/To  rearer]  «Xrytrt«r*U.  J*i«*n0t  dWr  13Id  finl.  6.r*           Ti>cx>«»<TTn»r*jt^r(,,^iw.<lk*i.io««'j»«mlri.-(  T* 

IA  ^^  3644                                        -maawiM  nwf  m*.tocrn.  vmcn  wrix,  w  w                              ^  atQ.  ivn  „».,«  mi 

Figure  4.  DA  Form  3644:  Monthly  Abstract  of  Issues  of  petroleum  Products  and 

Operating  Supplies 


69 


M 

TA8 

TM 

MONTHL*  «m  t  Pf  TBOLEUM  ACCOUHTiXQ  tn****1* 

?OS"    :AM»OR  STAlinr; 

|  nen  at*  aooximt  humbcr 

•  'HIV                 „ 

in 

^1.  Nu'Hw 

_^ 

mooocTs 

«o™«*«  *0<j4tf 

©/£«£/- 

Jfi-4 

MMKMHWt     f+f.OOO 

i/0,000 

He,  ooo 

^£l;b•>-t;; 

ito.oeo 

IAS.  ooo 

JULO,  ooo 

iS3UtS 

if,  000 

f0f,  OoO 

/SS",  ooo 

I 

C-US  v:.  BD3^  b*.*«rt 

l°0,OOQ 

t So,  ooo  2.o£T,ooo 

"||>SIC*L             ! 

\ 
/JL1,500    fC&.SOO 

noothly  6wmwi           .     _ -  _ 

SCO 

a.,S6o 

I 

NUkglllMM 

*LLOW*BU 
-MS 

r,»S0LINE 

SlJU 

1 «*J     , . 

i,7S0 

3,?ao 

DTHSRHJtlS 
•  3  »A  1     ».'. 

/,nr 

«    R=V(AK\i 

.    MAIM  J  caaOEOf  a-lu-iiadli  P'n 

Thomas  0.  Thomas, 

■     UATL 

/Attf< 

«    3»T€ 

/*r  /f" 

NAME  k  LiiiAOi  <*r  *WBOVWG  OFFICE? 

'     Sir.UiTlJKE 

!SA  FQflM  47CZ  H  APR  S£ 


E£J7I0NC#  1   WN  «S  "S  03SO.CTT 


Figure  5.  DA  Form  4702-R:  Monthly  Bulk  Petroleum  Accounting  Summary 


70 


APPENDIX  B 

Software  Engineering  with  Abstractions,  Appendix  C  by  Luqi  and  Berzins 
provides  definitions  of  predefined  Spec  concepts.  Some  of  these  predefined  concepts  are 
inherited  and  imported  to  develop  an  environmental  model  of  the  Fuel  Automated 
Subsystem.  The  Fuel  Automated  Subsystem  environmental  model  is  as  follows: 


DEFINITION  fuel  automationsubsystemenvironment 

INHERIT  system  —  defines  softwaresystem,  proposed,  controls 

INHERIT  user  ~  defines  Userclass,  uses 

INHERIT  business  —  defines  product 

INHERIT  person  —  defines  person 

INHERIT  cause  —  defines  Neededfor 

IMPORT  subtype  FROM  type 

CONCEPT  fuelautomatedsubsystem  :  softwaresystem 
WHERE  proposed  (fuelautomationsubsytem), 

~  Will  construct  a  fuel  automated  subsystem 
Controls  (fuelautomationsubsystem,  petroleummanagement) 

—  System  will  help  Army  personnel  manage  petroleum 

CONCEPT  petroleumspecialist :  Userclass 

WHERE  ALL  (ps  :  petroleumspecialist :: 

uses  (ps,  fuelautomatedsubsystem)) 
Subtype  (petroleumspecialist,  person) 
~  Petroleum  specialists  use  the  fuel  automated  subsystem 

ALL  (f:  fuel:: 

SOME  (ps  :  petroleumspecialist ::  manages  (ps,  f))) 

—  For  every  fuel,  there  is  a  petroleum  specialist  that  manages  it 

~  Petroleum  specialists  are  the  only  source  of  bulk  and  retail  fuel 

—  issues  and  receipt  documentation 

ALL(fr:DD_1348_l  :: 

SOME  (ps  :  petroleumspecialist ::  receivebulk  (ps,  fr))) 

—  For  every  bulk  fuel  receipt  document,  there  is  a  petroleum 
~  specialist  that  received  the  bulk  fuel 
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ALL  (fi  :  DA27651  :: 

SOME  (ps  :  petroleumspecialist  ::  issuebulk  (ps,  fi))) 

—  For  every  bulk  fuel  issue  document,  there  is  a  petroleum 
~  specialist  that  issued  the  bulk  fuel 

ALL  (rr  :  retailreceiptdoc  : : 

SOME  (ps  :  petroleumspecialist  ::  receiveretail  (ps,  rr))) 
~  For  every  retail  receipt  document,  there  is  a  petroleum 

—  specialist  that  received  the  retail  fuel 

ALL  (ri :  retailissuedoc  : : 

SOME  (ps  :  petroleumspecialist ::  issueretail  (ps,  ri))) 

—  For  every  retail  issue  document,  there  is  a  petroleum  specialist 

—  that  issued  the  retail  fuel 

CONCEPT  issuebulk  (uc  :  Userclass,  ad  :  accountabilitydocument) 
VALUE  (b  :  boolean) 

~  True  if  the  user  class  issues  bulk  fuel  in  accordance  with 
-- DA  Pam  710-2-1 

CONCEPT  receivebulk  (uc  :  Userclass,  ad  :  accountabilitydocument) 
VALUE  (b  :  boolean) 

—  True  if  the  user  class  receives  bulk  fuel  in  accordance  with 
-- DA  Pam  710-2-1 

CONCEPT  issueretail  (uc  :  Userclass,  ad  :  accountabilitydocument) 
VALUE  (b  :  boolean) 
~  True  if  the  user  class  issues  retail  fuel  in  accordance  with 
--  DA  Pam  710-2-1 

CONCEPT  receiveretail  (uc  :  Userclass,  ad  :  accountabilitydocument) 
VALUE  (b  :  boolean) 

—  True  if  the  user  class  receives  retail  fuel  in  accordance  with 
-- DA  Pam  710-2-1 

CONCEPT  DD_1348_1  :  type 

WHERE  Subtype  (DDJ3481,  accountabilitydocument) 

ALL  (rbf :  toreceivebulkfuel  ::  Neededfor  (DD  13481,  rbf) 
—  A  DD  Form  1348-1  is  needed  to  receive  bulk  fuel 

CONCEPT  toreceivebulkfuel  :  type 

WFtERE  Subtype  (toreceivebulkfuel,  activity) 

ALL  (rbf :  toreceivebulkfuel  ::  Quantity  (rbf)  >  500) 
~  To  receive  fuel  greater  than  500  gallons  is  a  bulk  receipt 
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CONCEPT  DA27651  :  type 

WHERE  Subtype  (DA27651,  accountabilitydocument) 

ALL  (ibf :  toissuebulk  _fuel  ::  Neededfor  (DA_2765_l,ibf) 

—  A  DA  Form  2765-1  is  needed  to  issue  bulk  fuel 

CONCEPT  to_issue_bulk_fuel :  type 

WHERE  Subtype  (toissuebulkfuel,  activity) 

ALL  (ibf :  toissuebulkfuel ::  Quantity  (ibf)  >  500) 

—  To  issue  fuel  greater  than  500  gallons  is  a  bulk  issue 

CONCEPT  retail  receiptdoc  :  type 

WHERE  Subtype  (retailreceiptdoc,  accountability  document) 
ALL  (rrf :  toreceiveretailfuel  :: 

Neededfor  (retailreceiptdoc,  rrf) 
~  Retail  receipt  documentation  is  needed  to  receive  retail  fuel 

CONCEPT  toreceiveretailfuel  :  type 

WHERE  Subtype  (toreceiveretailfuel,  activity) 

ALL  (rrf :  toreceiveretailfuel  ::  Quantity  (rrf)  <  500) 

—  To  receive  fuel  less  than  or  equal  to  500  gallons  is  a  retail 

—  receipt 

CONCEPT  retailissuedoc  :  type 

WHERE  Subtype  (  retailissue-doc,  accountabilitydocument) 
ALL  (irf :  toissueretailfuel  :: 

Neededfor  (retailissuedoc,  irf) 

—  Retail  issue  documentation  is  needed  to  issue  retail  fuel 

CONCEPT  to_issue_retail_fuel :  type 

WHERE  Subtype  (toissueretailfuel,  activity) 

ALL  (irf:  toissueretailfuel ::  Quantity  (irf)  <  500) 

—  To  issue  fuel  less  than  or  equal  to  500  gallons  is  a  retail  issue 

CONCEPT  DA3643  :  type 

WHERE  Subtype  (D  A3  643,  accountabilitydocument) 

Captures_all_daily  (DAJ643,  DD_1348_1,  DAJ2765J, 
retailissue,  retailreceipt ) 
~  Daily  log  and  totalizer  of  all  fuel  receipts  and  issues 

CONCEPT  DA_3644  :  type 

WHERE  Subtype  (DA3644,  accountabilitydocument) 
Capturesdailytotals  (DA3644,  DA3643) 

—  Monthly  log  and  totalizer  of  the  total  daily  receipts  and 

—  issues  from  DA  3643 
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CONCEPT  DA4702  :  type 

WHERE  Subtype  (DA4702,  accountabilitydocument) 

Calculatesaccountingfrom  (DA3644,  openinginventory, 

physicalinventory) 

—  Accountability  calculator  that  uses  the  months  opening  fuel 

—  inventory,  monthly  total  receipts  /  issues  from  the  DA  3644, 
~  and  closing  physical  inventory  to  determine  if  accountability 

—  is  within  specified  tolerance  and  to  adjust  the  following 
~  months  opening  inventory 

CONCEPT  accountableofficer  :  Userclass 

WHERE  ALL  (ao  :  accountableofficer  : : 

uses(ao,  fuelautomatedsubsystem)) 
•Subtype  (accountableofficer,  person) 
Monitors  (accountable  officer,  fuelautomatedsubsystem) 

—  Accountable  officers  use  and  monitor  the  system 
Audits  (accountableofficer,  DA4702) 

—  Accountable  officers  audit  the  monthly  DA  Form  4702 

CONCEPT  monitors  (uc  :  Userclass,  s  :  system) 
VALUE  (b  :  boolean) 
—  True  if  the  instance  of  the  user  class  can  be  created 

CONCEPT  quantity  (a  :  activity) 
VALUE  (r  :  real) 

—  The  amount  of  fuel  issued  or  received 

CONCEPT  accountabilitydocument :  type 

—  Accounting  documents  used  for  supply  transactions  in  accordance  with 
-- DA  Pam  710-2-1 

CONCEPT  fuel  :  type 

WHERE  Subtype  (fuel,  product) 
~  There  are  three  types  of  fuel  products 

CONCEPT  diesel  fuel :  type 

WHERE  Subtype  (diesel_fuel,  fuel) 

CONCEPT  jetfuel  :  type 

WHERE  Subtype  (jetjuel,  fuel) 

CONCEPT  motor  fuel  :  type 

WHERE  Subtype  (motorfiiel,  fuel) 


END 
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The  following  diagram  illustrates  the  critical  concepts  and  relationships  defined  in 
the  environmental  model  above. 
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Figure  1.  Relational  Diagram  of  Environmental  Model 
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APPENDIX  C 


The  hierarchical  goal  structure  for  the  Fuel  Automated  Subsystem  is  as  follows: 


Gl :  The  purpose  of  the  system  is  to  assist  the  petroleum  specialist  in  maintaining 
accurate  accountability  of  the  receipt,  storage  and  issue  of  petroleum  products. 

Gl .  1 :  The  system  must  allow  the  petroleum  specialist  to  manually  input  receipt 
and  issue  documentation  into  the  system. 


Gl.1.1 


The  system  must  allow  for  the  input  of  bulk  fuel  receipt 
documentation  (DD  Form  1348-1  from  supply  source). 

Gl .  1 . 1 . 1 :  The  system  must  allow  for  input  of  the  following 

parameters:  name/rank  of  soldier  making  the  receipt, 
type  of  fuel  received,  quantity  in  gallons,  document 
number. 

Gl .  1 .2:  The  system  must  allow  for  the  input  of  fuel  receipts  from  other 
sources. 

Gl .  1 .2. 1 :  The  system  must  allow  for  input  of  the  following 

parameters:  name/rank  of  the  soldier  making  the  receipt, 
type  of  fuel  received,  quantity  in  gallons,  source: 
vehicle/equipment  identification  number,  source  unit. 

Gl .  1 .3 :  The  system  must  allow  for  the  input  of  issue  documentation  for 
issues  made  into  a  transportation  vehicle  or  storage  tank  that  will 
subsequently  be  issued  to  a  consuming  end  item  of  equipment 
(DA  Form  2765-1). 

Gl .  1 .3. 1 :  The  system  must  allow  for  input  of  the  following 

parameters:  name/rank  of  the  soldier  making  the  issue, 
type  of  fuel  issued,  quantity  in  gallons,  document 
number,  unit  of  the  receiver,  name/rank  of  receiver. 

Gl .  1 .4:  The  system  must  allow  for  the  input  of  issues  made  directly  into 
or  specifically  identifiable  to  a  consuming  end  item  (i.e.  vehicle). 
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Gl .  1 .4. 1 :  The  system  must  allow  for  input  of  the  following 

parameters:  name/rank  of  the  soldier  making  the  issue, 
type  of  fuel  issued,  quantity  in  gallons,  receiving  vehicle 
bumper  number,  receiving  vehicle's  unit,  name/rank  of 
receiver. 

Gl .  1 .5 :  The  system  must  allow  for  the  input  of  issues  made  directly  into 
an  identifiable  piece  of  equipment  other  than  a  vehicle. 

Gl .  1 .5. 1 :  The  system  must  allow  for  input  of  the  following 

parameters:  name/rank  of  the  soldier  making  the  issue, 
type  of  fuel  issued,  quantity  in  gallons,  name  of 
receiving  equipment,  equipment's  unit, 
name/rank  of  receiver. 

Gl  .2:  The  system  must  allow  the  petroleum  specialist  to  view  the  current 
physical  quantity  of  each  petroleum  product  being  stored. 

Gl  .2. 1 :  The  system  must  receive  as  input,  physical  quantity  reports  in 
gallons  from  the  storage  tanks  for  each  fuel  type. 

Gl  .3:  The  system  must  maintain  a  daily  database  of  all  input  petroleum  receipts 
and  issues. 

Gl  .3.1 :  The  system  must  store  all  receipt  and  issue  input  fields  in  the 
database. 

Gl  .3.2:  The  system  must  generate  a  daily  receipt  and  issue  total  based  on 
the  individual  receipts. and  issues  for  each  fuel  type  being  stored. 

Gl  .4:  The  system  must  maintain  a  monthly  database  of  the  total  daily  petroleum 
receipts  and  issues. 

Gl  .4. 1 :  The  system  must  store  the  total  daily  receipt  and  issue  totals  per 
fuel  type  in  the  database. 

Gl.4.2:  The  system  must  generate  a  monthly  receipt  and  issue  total  based 
on  the  daily  receipt  and  issue  totals  for  each  fuel  type  being 
stored. 

Gl  .5:  The  system  must  allow  the  petroleum  specialist  to  cancel  an  incorrectly 
input  receipt  or  issue. 

G2:  The  system  must  provide  a  means  for  the  accountable  officer  to  insure  proper 
petroleum  product  accountability. 
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G2. 1 :  The  system  must  allow  the  accountable  officer  to  view  the  current  physical 
quantity  of  each  petroleum  product  being  stored. 

G2. 1.1:  The  system  must  receive  as  input,  physical  quantity  reports  in 
gallons  from  the  storage  tanks  for  each  fuel  type. 

G2.2:  The  system  must  provide  a  monthly  accountability  report. 

G2.2. 1 :  The  system  must  calculate  the  maximum  monthly  allowable  gain/ 
loss  for  each  fuel  type  stored  during  the  month.  The  monthly 
allowable  gain/loss  for  jet  fuel  and  mogas  must  be  calculated  as 
follows: 

monthly  allowable  gain/loss  =  (opening  inventory 

+  total  monthly  receipts)  x  0.01 

and  for  diesel  fuel  as  follows: 

monthly  allowable  gain/loss  =  (opening  inventory 

+  total  monthly  receipts)  x  0.005 


G2.2.2:  The  system  will  calculate  the  actual  monthly  gain/loss  for  each 

fuel  type  stored  during  the  month.  The  monthly  gain/loss  must  be 
calculated  for  each  respective  fuel  as  follows: 

monthly  gain/loss  =  (opening  inventory  for  the  month 
+  total  monthly  receipts 

-  total  monthly  issues) 

-  physical  closing  inventory 

G2.2.3:  The  system  must  identify  when  the  monthly  allowable  gain/loss 
is  exceeded. 
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APPENDIX  D 


Figure  1.  Top  Level  Graph  of  the  Fuel  Automated  Subsystem 


81 


Figure  2.  Decomposed  Daily  Consolidator 
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Figure  3.  Decomposed  Monthly  Consolidator 
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Figure  4.  Decomposed  Accountability  Operator 
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Figure  5.    Decomposed  Diesel  Fuel  Tank 
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Figure  6.  Decomposed  Mogas  Fuel  Tank 
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Figure  7.  Decomposed  Jet  Fuel  Tank 
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APPENDIX  E 


TYPE  textstring 

SPECIFICATION 

END 

IMPLEMENTATION  ADA  text_string 
END 

OPERATOR  other_iss_db_table_504 
SPECIFICATION 
INPUT 
eq_iss_name:  text_string, 
eq_iss_unit:  text_string, 
eq_iss_id:  textstring, 
eq_iss_qty:  integer, 
eq_issfuel  type:  integer 
KEYWORDS  table,  database,  equipment_issue 
DESCRIPTION  {Table  in  a  relational  database  to  store  the  input  parameters  for  all  fuel  issues  to 

equipment.  The  table  provides  a  historical  audit  trail  of  all  equipment  issues.  Also 
provides  a  hook  for  future  system  enhancement  such  as  data  mining  and  statistical 
analysis  applications.} 
END 

IMPLEMENTATION  ADA  other_iss_db_table_504 
END 

OPERATOR  other_rcpt_db_table_501 
SPECIFICATION 
INPUT 
othrcptsourceunit:  text_string, 
oth_rcpt_source_id:  textstring, 
oth_rcpt_qty:  integer, 
oth_rcpt_fuel_type:  integer 
KEYWORDS  table,  database,  otherreceipt 

DESCRIPTION  {Table  in  a  relational  database  to  store  the  input  parameters  of  all  receipts  other  than 
bulk.  The  table  provides  a  historical  audit  trail  of  all  receipts  other  than  bulk.  Also 
provides  a  hook  for  future  system  enhancement  such  as  data  mining  and  statistical 
analysis  applications.} 
END 

IMPLEMENTATION  ADA  other_rcpt_db_table_501 
END 

OPERATOR  bulk_iss_db_table_498 
SPECIFICATION 
INPUT 
bulkrcvname:  textstring, 
bulkrcvunit:  textstring, 
bulkissdocnum:  textstring, 
bulkissqty:  integer, 
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bulkissfueltype:  integer 
KEYWORDS  table,  database,  bulkissue 

DESCRIPTION  {Table  in  a  relational  database  to  store  the  input  parameters  of  a  bulk  fuel  issue.  The 
table  provides  a  historical  audit  trail  of  all  bulk  fuel  issues.  Also  provides  a  hook  for 
future  system  enhancements  such  as  data  mining  and  statistical  analysis  applications. } 
END 

IMPLEMENTATION  ADA  bulk_iss_db_table_498 
END 

OPERATOR  bulk_rcpt_db_table_495 
SPECIFICATION 
INPUT 

bulk_rcpt_doc_number:  textstring, 
bulkrcptqty:  integer, 
bulkrcptfueltype:  integer 
KEYWORDS  table,  database,  bulkreceipt 

DESCRIPTION  {Table  in  a  relational  database  to  store  the  input  parameters  of  a  bulk  fuel  receipt.  The 
table  provides  a  historical  audit  trail  of  all  bulk  fuel  receipts.  Also  provides  a  hook  for 
future  system  enhancement  such  as  data  mining  and  statistical  analysis  applications. } 
END 

IMPLEMENTATION  ADA  bulk_rcpt_db_table_495 
END 

OPERATOR  daily_reporter_4 1 0 
SPECIFICATION 
INPUT 

mg_iss total :  integer, 

df_iss_total:  integer, 

jet_iss_total:  integer, 

dfrcpttotal:  integer, 

mg_rcpt_total:  integer, 

jet_rcpt_total:  integer 
OUTPUT 

dailyJet_iss_total:  integer, 

dailymgisstotal:  integer, 

dailydfisstotal:  integer, 

dailyjetrcpttotal:  integer, 

dailymgrcpttotal:  integer, 

dailydfrcpttotal:  integer, 

mg iss total:  integer, 

df_iss_total:  integer, 

jetisstotal:  integer, 

jetrcpttotal:  integer, 

mgrcpttotal:  integer, 

dfrcpttotal:  integer 
MAXIMUM  EXECUTION  TIME  750  MS 
KEYWORDS  daily,  periodicoperator 

DESCRIPTION  {Periodic  operator  that  forwards  the  daily  total  receipts  and  issues  per  fuel  type  every  1 
hour.  Note:  The  normal  period  of  the  daily  reporter  is  24  hours.  It  has  reduced  to  1 
hour  for  this  prototype. } 
END 

IMPLEMENTATION  ADA  daily_reporter_410 
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END 

OPERATOR  df_iss_totalizer_352 
SPECIFICATION 
INPUT 
i_df_qty:  integer, 
dfisstotal:  integer 
OUTPUT 

dfisstotal:  integer 
KEYWORDS  counter,  dieselfuel,  issues 

DESCRIPTION  {Counter  of  the  daily  quantity  of  diesel  fuel  issued.  Also  provides  a  hook  for  future 
system  enhancement  such  as  real  time  user  views  of  the  current  daily  total  issues  of 
diesel  fuel  on  demand.} 
END 

IMPLEMENTATION  ADA  df_iss_totalizer_352 
END 

OPERATOR  mg_iss_totalizer_349 
SPECIFICATION 
INPUT 
i_mg_qty:  integer, 
mg_iss_total:  integer 
OUTPUT 
mgisstotal:  integer 
KEYWORDS  counter,  mogas,  issues 

DESCRIPTION  {Counter  of  the  daily  quantity  of  mogas  issued.  Also  provides  a  hook  for  future  system 
enhancement  such  as  real  time  user  views  of  the  current  daily  total  issues  of  mogas  on 
demand. } 
END 

IMPLEMENTATION  ADA  mg_iss_totalizer_349 
END 

OPERATOR  j  et_iss_totalizer_346 
SPECIFICATION 
INPUT 
ijetqty:  integer, 
jet_iss_total:  integer 
OUTPUT 

jet_iss_total:  integer 
KEYWORDS  counter,  jetfuel,  issues 

DESCRIPTION  {Counter  of  the  daily  quantity  of  jet  fuel  issued.  Also  provides  a  hook  for  future  system 
enhancement  such  as  real  time  user  views  of  the  current  daily  total  issues  of  jet  fuel  on 
demand. } 
END 

IMPLEMENTATION  ADA  jet_iss_totalizer_346 
END 

OPERATOR  jet_rcpt_totalizer_280 
SPECIFICATION 
INPUT 
rjet_qty:  integer, 
jetrcpttotal:  integer 
OUTPUT 
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jetrcpttotal:  integer 
KEYWORDS  counter,  jet  fuel,  receipt 
DESCRIPTION  {Counter  of  the  daily  quantity  of  jet  fuel  received.  Also  provides  a  hook  for  future 

system  enhancement  such  as  real  time  user  views  of  the  current  daily  total  receipts  of 
jet  fuel  on  demand.} 
END 

IMPLEMENTATION  ADA  jet_rcpt_totalizer_280 
END 

OPERATOR  mg_rcpt_totalizer_277 
SPECIFICATION 
INPUT 
rmgqty:  integer, 
mg_rcpt_total:  integer 
OUTPUT 
mg_rcpt_total:  integer 
KEYWORDS  counter,  mogas,  receipt 
DESCRIPTION  {Counter  of  the  daily  quantity  of  mogas  received.  Also  provides  a  hook  for  future 

system  enhancement  such  as  real  time  user  views  of  the  current  daily  total  receipts  of 
mogas  on  demand.} 
END 

IMPLEMENTATION  ADA  mg_rcpt_totalizer_277 
END 

OPERATOR  df_rcpt_totalizer_274 
SPECIFICATION  " 
INPUT 
rdfqty:  integer, 
dfrcpttotal:  integer 
OUTPUT 

dfrcpttotal:  integer 
KEYWORDS  counter,  diesel  fuel,  receipt 

DESCRIPTION  {Counter  of  the  daily  quantity  of  diesel  fuel  received.  Also  provides  a  hook  for  future 
system  enhancement  such  as  real  time  user  views  of  the  current  daily  total  receipts  of 
diesel  fuel  on  demand.} 
END 

IMPLEMENTATION  ADA  df_rcpt_totalizer_274 
END 

OPERATOR  bulk_rcpt_processor_198 
SPECIFICATION 
INPUT 
bulkrcptfueltype:  integer, 
bulkrcptqty:  integer, 
othrcptenable:  boolean 
OUTPUT 
bulkrcptenable:  boolean, 
othrcptenable:  boolean 
KEYWORDS  fueltype,  fuelquantity,  processor 

DESCRIPTION  {Serves  as  a  preprocessor.  Insures  the  bulk  receipt  input  parameters  of  type  of  fuel  and 
quantity  arrive  to  be  processed  at  the  same  time  by  using  a  by  all  triggering  condition. 
Arrival  of  both  parameters  cause  an  enable  parameter  to  be  generated  indicating  that 
the  bulk  receipt  parameters  are  present  and  ready  to  be  processed  by  the  receipt 
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processor. } 
END 

IMPLEMENTATION  ADA  bulk_rcpt_processor_198 
END 

OPERATOR  oth_rcpt_processor_207 
SPECIFICATION 
INPUT 
othrcptqty:  integer, 
othrcptfueltype:  integer, 
bulkrcptenable:  boolean 
OUTPUT 
othrcptenable:  boolean, 
bulkrcptenable:  boolean 
KEYWORDS  fueltype,  fuelquantity,  preprocessor 

DESCRIPTION  {Serves  as  a  preprocessor.  Insures  the  other  receipt  input  parameters  of  type  of  fuel  and 
quantity  arrive  to  be  processed  at  the  same  time  using  a  by  all  triggering  condition. 
Arrival  of  both  parameters  cause  an  enable  parameter  to  be  generated  indicating  that 
the  other  receipt  parameters  are  present  and  ready  to  be  processed  by  the  receipt 
processor.} 
END 

IMPLEMENTATION  ADA  oth_rcpt_processor_207 
END 

OPERATOR  rcpt_processor_21 0 
SPECIFICATION 
INPUT 
othrcptqty:  integer, 
othrcptfueltype:  integer, 
bulkrcptqty:  integer, 
bulk_rcpt_fuel_type:  integer, 
othrcptenable:  boolean, 
bulkrcptenable:  boolean 
OUTPUT 
rjetqty:  integer, 
rmgqty:  integer, 
r_df_qty:  integer, 
jetrcptqty:  integer, 
mogas_rcpt_qty:  integer, 
diesel_rcpt_qty:  integer 
KEYWORDS  receipts,  bulkreceipts,  otherreceipts,  receipt_processor 

DESCRIPTION  {Processor  of  all  bulk  and  other  fuel  receipts.  Based  upon  an  enable  signal  and  the  type 
of  fuel,  the  processor  passes  the  received  quantity  of  fuel  to  the  appropriate  fuel 
storage  tank  and  totalizer.} 
END 

IMPLEMENTATION  ADA  rcpt_processor_210 
END 

OPERATOR  oth_iss_processor_307 
SPECIFICATION 
INPUT 
eq_iss_qty:  integer, 
eq_iss_fuel_type:  integer, 
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bulkissenable:  boolean 
OUTPUT 
othissenable:  boolean, 
bulkissenable:  boolean 
KEYWORDS  fueltype,  fuelquantity,  preprocessor 

DESCRIPTION  {Serves  as  a  preprocessor.  Insures  the  equipment  issue  input  parameters  of  fuel  type  and 
quantity  arrive  to  be  processed  at  the  same  time  by  using  a  by  all  triggering  condition. 
Arrival  of  both  parameters  cause  an  enable  parameter  to  be  generated  indicating  that 
the  equipment  issue  parameters  are  present  and  ready  to  be  processed  by  the  issue 
processor. } 
END 

IMPLEMENTATION  ADA  oth_iss_processor_307 
END 

OPERATOR  bulk_iss_processor_310 
SPECIFICATION 
INPUT 
bulkissqty:  integer, 
bulkissfueljype:  integer, 
oth_iss_enable:  boolean 
OUTPUT 
bulk_iss_enable:  boolean, 
othissenable:  boolean 
KEYWORDS  fueltype,  fuelquantity,  preprocessor 

DESCRIPTION  {Serves  as  a  preprocessor.  Insures  the  bulk  issue  parameters  of  fuel  type  and  quantity 
arrive  to  be  processed  at  the  same  time  by  using  a  by  all  triggering  condition.  Arrival 
of  both  parameters  cause  an  enable  parameter  to  be  generated  indicating  that  the  bulk 
issue  parameters  are  present  and  ready  to  be  processed  by  the  issue  processor.} 
END 

IMPLEMENTATION  ADA  bulk_iss_processor_310 
END 

OPERATOR  iss_processor_323 
SPECIFICATION 
INPUT 
bulk_iss_enable:  boolean, 
othissenable:  boolean, 
eq_iss_fuel_type:  integer, 
eq_iss_qty:  integer, 
bulkiss  fuel_type:  integer, 
bulkissqty:  integer 
OUTPUT 
idfqty:  integer, 
imgqty:  integer, 
ijetqty:  integer, 
dieselissqty:  integer, 
mogas_iss_qty:  integer, 
jetissqty:  integer 

KEYWORDS  issues,  bulkissues,  equipmentissues,  issue_processor 

DESCRIPTION  {Processor  of  all  bulk  and  equipment  fuel  issues.  Based  upon  an  enable  signal  and  the 
type  of  fuel,  the  processor  passes  the  issued  quantity  of  fuel  to  the  appropriate  fuel 
storage  tank  and  totalizer. } 
END 
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IMPLEMENTATION  ADA  iss_processor_323 
END 

OPERATOR  jet_gage_9 1 7 
SPECIFICATION 
INPUT 

jetqtyonhand:  integer 
OUTPUT 

jetqtyavailable:  integer 
KEYWORDS  storage,  tank,  jet  fuel,  gage 

DESCRIPTION  {Simulates  gaging  the  jet  fuel  storage  tank  to  determine  the  quantity  of  fuel  on  hand.} 
END 

IMPLEMENTATION  ADA  jet_gage_91 7 
END 

OPERATOR  jet_subtraction_9 1 4 
SPECIFICATION 
INPUT 

jetvolume:  integer, 
jetissqty:  integer 
OUTPUT 

jetqtyonhand:  integer, 
jet_volume:  integer 

KEYWORDS  storage,  tank,  jetfuel,  issue 

DESCRIPTION  {Simulates  the  issue/subtraction  of  a  quantity  of  jet  fuel  from  the  storage  tank.} 
END 

IMPLEMENTATION  ADA  j  et_subtraction_9 1 4 
END 

OPERATOR  jet_addition_91 1 
SPECIFICATION 
INPUT 

jetvolume:  integer, 
jet_rcpt_qty:  integer 
OUTPUT 

jet_qty_on_hand:  integer, 
jetvolume:  integer 

KEYWORDS  storage,  tank,  jetfuel,  receipt 

DESCRIPTION  {Simulates  the  receipt/addition  of  a  quantity  of  jet  fuel  to  the  storage  tank.} 
END 

IMPLEMENTATION  ADA  jet_addition_91 1 
END 

OPERATOR  mogas_addition_888 
SPECIFICATION 
INPUT 

mogasrcptqty:  integer, 

mogasvolume:  integer 
OUTPUT 

mogas_volume:  integer, 

mg_qty_on_hand:  integer 
KEYWORDS  storage,  tank,  mogas,  receipt 
DESCRIPTION  {Simulates  the  receipt/addition  of  a  quantity  of  mogas  to  the  storage  tank.} 
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END 

IMPLEMENTATION  ADA  mogas_addition_888 
END 

OPERATOR  mogas_subtraction_891 
SPECIFICATION 
INPUT 
mogas_iss_qty:  integer, 
mogasvolume:  integer 
OUTPUT 
mogas_volume:  integer, 
mgqtyonhand:  integer 
KEYWORDS  storage,  tank,  mogas,  issue 

DESCRIPTION  {Simulates  the  issue/subtraction  of  a  quantity  of  mogas  from  the  storage  tank.} 
END 

IMPLEMENTATION  ADA  mogas_subtraction_891 
END 

OPERATOR  mogas_gage_894 
SPECIFICATION 
INPUT 
mgqtyonhand:  integer 
OUTPUT 
mogasqtyavailable:  integer 
KEYWORDS  storage,  tank,  mogas,  gage 

DESCRIPTION  {Simulates  the  gaging  of  the  mogas  storage  tank  to  determine  the  quantity  of  fuel  on 
hand.} 
END 

IMPLEMENTATION  ADA  mogas_gage_894 
END 

OPERATOR  gui_bulk_receipt_3 
SPECIFICATION 
OUTPUT 
bulk_rcpt_fuel_type:  integer, 
bulkrcptdocnumber:  textstring, 
bulkrcptqty:  integer 
KEYWORDS  bulkreceipt,  userinput,  dd_form_1348_l,  gui 

DESCRIPTION  {Allows  a  petroleum  specialist  to  manually  input  parameters  extracted  from  DD  Form 
1348-1  during  the  receipt  of  bulk  petroleum.  The  petroleum  specialist  enters  the  type 
of  fuel  received,  quantity  in  gallons,  and  the  document  number  as  required  by  Army 
Regulation  710-2.} 
END 

IMPLEMENTATION  ADA  gui_bulk_receipt_3 
END 

OPERATOR  gui_other_receipt_6 
SPECIFICATION 
OUTPUT 
othrcptqty:  integer, 
othrcptsourceunit:  textstring, 
othrcptfueltype:  integer, 
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othrcptsourceid:  textstring 
KEYWORDS  gui,  otherreceipt,  userinput 

DESCRIPTION  {Interface  capturing  all  other  possible  petroleum  receipt  scenarios  i.e.  vehicle/aircraft 
defueling,  etc.  The  interface  allows  a  petroleum  specialist  to  manually  enter  the  type 
of  fuel  received,  quantity  in  gallons,  an  identification  number  from  the  source,  and 
source  unit  as  required  by  Army  Regulation  710-2.} 
END 

IMPLEMENTATION  ADA  gui_other_receipt_6 
END 

OPERATOR  gui_bulk_issue_9 
SPECIFICATION 
OUTPUT 
bulkrcvunit:  textstring, 
bulkissdocnum:  textstring, 
bulkrcvname:  textstring, 
bulkissqty:  integer, 
bulkissfueltype:  integer 
KEYWORDS  gui,  bulkissue,  da_form_2765_l,  userinput 
DESCRIPTION  {Interface  that  allows  a  petroleum  specialist  to  manually  input  parameters  extracted 

from  DA  Form  2765-1  during  issue  of  bulk  petroleum.  The  petroleum  specialist  enters 
the  type  of  fuel  issued,  quantity  in  gallons,  document  number  of  the  issue,  the 
receiving  unit,  and  the  name/rank  of  the  receiver  as  required  by  Army 
Regulation  710-2.} 
END 

IMPLEMENTATION  ADA  gui_bulk_issue_9 
END 

OPERATOR  gui_other_issue_12 
SPECIFICATION 
OUTPUT 
eq_iss_unit:  textstring, 
eq_iss_name:  textstring, 
eq_iss _fuel_type:  integer, 
eq_iss_id:  textstring, 
eq_iss_qty:  integer 
KEYWORDS  gui,  userinput,  otherissue 

DESCRIPTION  {Interface  that  allows  a  petroleum  specialist  to  manually  input  parameters  required  by 
Army  Regulation  710-2  for  all  fuel  issues  other  than  bulk  issues.  These  other  issues 
include  fuel  issues  made  directly  into  or  specifically  identifiable  to  a  consuming  end 
item.  An  example  of  this  type  of  issue  is  to  a  vehicle  or  a  M2  burner  unit.  Petroleum 
specialist  enters  the  type  of  fuel  issued,  quantity  in  gallons,  the  receiving  vehicle 
bumper  number/equipment  name,  the  receiving  unit,  and  the  name/rank  of 
the  receiver. } 
END 

IMPLEMENTATION  ADA  gui_other_issue_12 
END 

OPERATOR  daily_iss_db_table_743 
SPECIFICATION 
INPUT 
daily_df_iss_total:  integer, 
dailymgisstotal:  integer, 
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daily_jet_iss_total:  integer 
KEYWORDS  table,  database,  issue 
DESCRIPTION  {Table  in  a  relational  database  to  store  the  total  daily  issues  per  fuel  type.  The  table 

provides  a  historical  audit  trail.  Also  provides  a  hook  for  future  system  enhancement 
such  as  data  mining  and  statistical  analysis  applications.} 
END 

IMPLEMENTATION  ADA  daily_iss_db_table_743 
END 

OPERATOR  daily_rcpt_db_table_740 
SPECIFICATION 
INPUT 
dailydfrcpttotal:  integer, 
daily_mg_rcpt_total:  integer, 
daily_jet_rcpt_total:  integer 
KEYWORDS  table,  database,  receipt 

DESCRIPTION  {Table  in  a  relational  database  to  store  the  daily  total  receipts  per  fuel  type.  The  table 
provides  a  historical  audit  trail.  Also  provides  a  hook  for  future  system  enhancement 
such  as  data  mining  and  statistical  analysis  applications. } 
END 

IMPLEMENTATION  ADA  daily_rcpt_db_table_740 
END 

OPERATOR  monthly_reporter_601 
SPECIFICATION 
INPUT 

mo_issJet_total:  integer, 
mo_iss_mg_total:  integer, 
mo_iss_df_total:  integer, 
morcptjettotal:  integer, 
morcptmgtotal:  integer, 
morcptdfjotal:  integer 
OUTPUT 

mo  issjettotal:  integer, 
mo  issmgtotal:  integer, 
mo  issdfjotal:  integer, 
morcptjettotal:  integer, 
morcptmgtotal:  integer, 
mo_rcpt_df  total:  integer, 
month_df  isstotal:  integer, 
monthdfrcpttotal:  integer, 
monthmg  isstotal:  integer, 
month_mg_rcpt_total:  integer, 
monthjetrcpttotal:  integer, 
monthjet  isstotal:  integer 
MAXIMUM  EXECUTION  TIME  750  MS 
KEYWORDS  monthly,  periodicoperator 

DESCRIPTION  {Periodic  operator  that  forwards  the  monthly  total  receipts  and  issues  per  fuel  type 
every  30  hours.  Note:  The  normal  period  of  the  monthly  reporter  is  720  hours, 
approximately  one  month.  It  has  been  proportionately  reduced  to  30  hours  for  this 
prototype. } 
END 

IMPLEMENTATION  ADA  monthly_reporter_601 
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END 

OPERATOR  moJet_iss_totalizer_598 
SPECIFICATION 
INPUT 
moissjettotal:  integer, 
dailyjetisstotal:  integer 
OUTPUT 

mo_iss_jet_total:  integer 
KEYWORDS  counter,  jet  fuel,  issue 

DESCRIPTION  {Counter  of  the  quantity  of  jet  fuel  issued  over  the  course  of  the  month.  Also  provides  a 
hook  for  future  system  enhancement  such  as  user  views  of  the  current  total  issues  of  jet 
fuel  for  the  month. } 
END 

IMPLEMENTATION  ADA  moJet_iss_totalizer_598 
END 

OPERATOR  mo_mg_iss_totalizer_595 
SPECIFICATION 
INPUT 

mo i  ss mg total :  integer, 

dailymgisstotal:  integer 
OUTPUT 

mo iss__mg total :  integer 

KEYWORDS  counter,  mogas,  issue 

DESCRIPTION  {Counter  of  the  quantity  of  mogas  issued  over  the  course  of  the  month.  Also  provides  a 
hook  for  future  system  enhancement  such  as  user  views  of  the  current  total  issues  of 
mogas  for  the  month.} 
END 

IMPLEMENTATION  ADA  mo_mg_iss_totalizer_595 
END 

OPERATOR  mo_df_iss_totalizer_592 
SPECIFICATION 
INPUT 
moissdftotal:  integer, 
dailydfisstotal:  integer 
OUTPUT 
mo_iss_df_total:  integer 
KEYWORDS  counter,  dieselfuel,  issue 
DESCRIPTION  {Counter  of  the  quantity  of  diesel  fuel  issued  over  the  course  of  the  month.  Also 

provides  a  hook  for  future  system  enhancement  such  as  user  views  of  the  current  total 
issues  of  diesel  fuel  for  the  month.} 
END 

IMPLEMENTATION  ADA  mo_df_iss_totalizer_592 
END 

OPERATOR  moJet_rcpt_totalizer_589 
SPECIFICATION 
INPUT 
daily_jet_rcpt_total:  integer, 
morcptjettotal:  integer 
OUTPUT 
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morcptjettotal:  integer 
KEYWORDS  counter,  jet  fuel,  receipt 

DESCRIPTION  {Counter  of  the  quantity  of  jet  fuel  received  over  the  course  of  the  month.  Also  provides 
a  hook  for  future  system  enhancement  such  as  user  views  of  the  current  total  receipts 
of  jet  fuel  for  the  month.} 
END 

IMPLEMENTATION  ADA  moJet_rcpt_totalizer_589 

END 

OPERATOR  mo_mg_rcpt_totalizer_586 
SPECIFICATION 
INPUT 
daily_mg_rcpt_total:  integer, 
mo_rcpt_mg_total:  integer 
OUTPUT 
morcptmgtotal:  integer 
KEYWORDS  counter,  mogas,  receipt 

DESCRIPTION  {Counter  of  the  quantity  of  mogas  received  over  the  course  of  the  month.  Also  provides 
a  hook  for  future  system  enhancement  such  as  user  views  of  the  current  total  receipts 
of  mogas  for  the  month.} 
END 

IMPLEMENTATION  ADA  mo_mg_rcpt_totalizer_586 
END 

OPERATOR  mo_df_rcpt_totalizer_583 
SPECIFICATION 
INPUT 
daily_df_rcpt_total:  integer, 
morcptdftotal:  integer 
OUTPUT 
morcptdftotal:  integer 
KEYWORDS  counter,  dieselfuel,  receipt 
DESCRIPTION  {Counter  of  the  quantity  of  diesel  fuel  received  over  the  course  of  the  month.  Also 

provides  a  hook  for  future  system  enhancement  such  as  user  views  of  the  current  total 
receipts  of  diesel  fuel  for  the  month. } 
END 

IMPLEMENTATION  ADA  mo_df_rcpt_totalizer_583 
END 

OPERATOR  diesel_iss_acct_proc_934 
SPECIFICATION 
INPUT 

monthdfisstotal:  integer 
OUTPUT 
totalmodfiss:  integer 
KEYWORDS  diesel,  issue,  accountability 

DESCRIPTION  {Sets  the  total  monthly  diesel  issues  for  processing.} 
END 

IMPLEMENTATION  ADA  diesel_iss_acct_proc_934 
END 
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OPERATOR  diesel_rcpt_acct_proc_937 
SPECIFICATION 
INPUT 
monthdfrcpttotal:  integer 
OUTPUT 

total_mo_df_rcpt:  integer 
KEYWORDS  diesel,  accountability,  receipt 

DESCRIPTION  {Sets  the  total  monthly  diesel  receipts  for  processing.} 
END 

IMPLEMENTATION  ADA  diesel_rcpt_acct_proc_937 
END 

OPERATOR  mogas_iss_acct_proc_940 
SPECIFICATION 
INPUT 
month_mg_iss_total:  integer 
OUTPUT 
totalmomgiss:  integer 
KEYWORDS  mogas,  accountability,  issues 

DESCRIPTION  {Sets  the  total  monthly  mogas  issues  for  processing.} 
END 

IMPLEMENTATION  ADA  mogas_iss_acct_proc_940 
END 

OPERATOR  mogas_rcpt_acct_proc_943 
SPECIFICATION 
INPUT 
monthmgrcpttotal:  integer 
OUTPUT 
totalmomgrcpt:  integer 
KEYWORDS  mogas,  accountability,  receipt 

DESCRIPTION  {Sets  the  total  monthly  mogas  receipts  for  processing.} 
END 

IMPLEMENTATION  ADA  mogas_rcpt_acct_proc_943 
END 

OPERATOR  j  et_iss_acct_proc_946 
SPECIFICATION 
INPUT 
month  Jetisstotal:  integer 
OUTPUT  " 
total_moJet_iss:  integer 
KEYWORDS  jet  fuel,  accountability,  issue 
DESCRIPTION  {Sets  the  total  monthly  jet  issues  for  processing.} 
END 

IMPLEMENTATION  ADA  jet_iss_acct _proc_946 
END 

OPERATOR  j  et_rcpt_acct_proc_949 
SPECIFICATION 
INPUT 
monthjetrcpttotal:  integer 
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OUTPUT 

totalmojetrcpt:  integer 
KEYWORDS  jet  fuel,  accountability,  receipt 
DESCRIPTION  {Sets  the  total  monthly  jet  receipts  for  processing.} 
END 

IMPLEMENTATION  ADA  jet_rcpt_acct_proc_949 
END 

OPERATOR  df_acct_calc_952 
SPECIFICATION 
INPUT 

total_mo_df  iss:  integer, 
total_mo_df_rcpt:  integer, 
opening Jnvdiesel:  integer, 
dieselqtyavailable:  integer 
OUTPUT 
tolerancedf:  boolean, 
openinginvdiesel:  integer 
KEYWORDS  diesel,  tolerance,  accountability 

DESCRIPTION  {Determines  whether  diesel  fuel  accountability  is  within  tolerance.} 
END 

IMPLEMENTATION  ADA  df_acct_calc_952 
END 

OPERATOR  mg_acct_calc_955 
SPECIFICATION 
INPUT 

total_mo_mg  iss:  integer, 
total_mo_mg_rcpt:  integer, 
opening_inv_mogas:  integer, 
mogasqtyavailable:  integer 
OUTPUT 
tolerancemg:  boolean, 
openinginvjnogas:  integer 
KEYWORDS  mogas,  tolerance,  accountability 

DESCRIPTION  {Determines  whether  mogas  fuel  accountability  is  within  tolerance.} 
END 

IMPLEMENTATION  ADA  mg_acct_calc_955 
END 

OPERATOR  jet_acct_calc_958 
SPECIFICATION 
INPUT 

totalmojet  iss:  integer, 
totalmojetrcpt:  integer, 
opening_inv_jet:  integer, 
jet_qty_available:  integer 
OUTPUT 
tolerancejet:  boolean, 
openinginvjet:  integer 
KEYWORDS  jetfuel,  tolerance,  accountability 

DESCRIPTION  {Determines  whether  jet  fuel  accountability  is  within  tolerance.} 
END 
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IMPLEMENTATION  ADA  jet_acct_calc_958 
END 

OPERATOR  gui  fuel_on_hand_124 
SPECIFICATION 
INPUT 

jet_qty_available:  integer, 
mogasqtyavailable:  integer, 
dieselqtyavailable:  integer 
KEYWORDS  gui,  fuel_balance_on_hand,  jet  fuelbalance,  diesel  fuelbalance,  mogasbalance 
DESCRIPTION  {Interface  that  shows  the  current  fuel  totals  in  gallons  that  are  stored  and  available  for 
issue.  This  interface  is  available  to  both  the  using  petroleum  specialist  and 
accountable  officer.} 
END 

IMPLEMENTATION  ADA  gui_fuel_on_hand_124 
END 

OPERATOR  gui_acc_officer_179 
SPECIFICATION 
INPUT 

tolerancedf:  boolean, 
tolerancemg:  boolean, 
tolerance  Jet:  boolean 
KEYWORDS  gui,  accountability_report,  fueltolerance 

DESCRIPTION  {Interface  for  the  accountable  officer  to  view  the  monthly  fuel  report.} 
END 

IMPLEMENTATION  ADA  gui_acc_officer_179 
END 

OPERATOR  diesel_gage_854 
SPECIFICATION 
INPUT 

df_qty_on_hand:  integer 
OUTPUT 

diesel_qty_available:  integer 
KEYWORDS  storage,  tank,  diesel,  gage 

DESCRIPTION  {Simulates  gaging  the  diesel  storage  tank  to  determine  the  quantity  of  fuel  on  hand.} 
END 

IMPLEMENTATION  ADA  diesel_gage_854 
END 

OPERATOR  diesel_subtraction_839 
SPECIFICATION 
INPUT 
dieselvolume:  integer, 
diesel_iss_qty:  integer 
OUTPUT 
dfqtyonhand:  integer, 
dieselvolume:  integer 
KEYWORDS  storage,  tank,  diesel,  issue 

DESCRIPTION  {Simulates  the  issue/subtraction  of  a  quantity  of  diesel  fuel  from  the  storage  tank.} 
END 
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IMPLEMENTATION  ADA  diesel_subtraction_839 
END 

OPERATOR  diesel_addition_836 
SPECIFICATION 
INPUT 
dieselvolume:  integer, 
dieselrcptqty:  integer 
OUTPUT 
dfqtyonhand:  integer, 
dieselvolume:  integer 
KEYWORDS  storage,  tank,  diesel,  receipt 

DESCRIPTION  {Simulates  the  receipt/addition  of  a  quantity  of  diesel  fuel  to  the  storage  tank.} 
END 

IMPLEMENTATION  ADA  diesel_addition_836 
END 

OPERATOR  fuelsubsysteml 
SPECIFICATION 

STATES  jet_qty_on_hand:  integer  INITIALLY  0 

STATES  jet_volume:  integer  INITIALLY  0 

STATES  mogas_volume:  integer  INITIALLY  0 

STATES  mg_qty_on_hand:  integer  INITIALLY  0 

STATES  jetissjotal:  integer  INITIALLY  0 

STATES  mg_iss_total:  integer  INITIALLY  0 

STATES  df_iss_total:  integer  INITIALLY  0 

STATES  jetrcpttotal:  integer  INITIALLY  0 

STATES  mg_rcpt_total:  integer  INITIALLY  0 

STATES  df_rcpt_total:  integer  INITIALLY  0 

STATES  othrcptenable:  boolean  INITIALLY  FALSE 

STATES  bulkrcptenable:  boolean  INITIALLY  FALSE 

STATES  bulk_iss_enable:  boolean  INITIALLY  FALSE 

STATES  oth_iss_enable:  boolean  INITIALLY  FALSE 

STATES  moissjettotal:  integer  INITIALLY  0 

STATES  moissmgtotal:  integer  INITIALLY  0 

STATES  mo_iss_df_total:  integer  INITIALLY  0 

STATES  morcptjettotal:  integer  INITIALLY  0 

STATES  morcptmgtotal:  integer  INITIALLY  0 

STATES  morcptdftotal:  integer  INITIALLY  0 

STATES  totalmodfiss:  integer  INITIALLY  0 

STATES  totalmodfrcpt:  integer  INITIALLY  0 

STATES  totalmomgiss:  integer  INITIALLY  0 

STATES  totalmomgrcpt:  integer  INITIALLY  0 

STATES  totalmojetiss:  integer  INITIALLY  0 

STATES  totalmojetrcpt:  integer  INITIALLY  0 

STATES  openinginvdiesel:  integer  INITIALLY  0 

STATES  openinginvmogas:  integer  INITIALLY  0 

STATES  opening_invJet:  integer  INITIALLY  0 

STATES  df_qty_on_hand:  integer  INITIALLY  0 

STATES  dieselvolume:  integer  INITIALLY  0 
END 

IMPLEMENTATION 
GRAPH 
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VERTEX  gui_bulk_receipt_3 
VERTEX  gui_other_receipt_6 
VERTEX  gui_bulk_issue_9 
VERTEX  gui_other_issue_12 
VERTEX  gui_fuel_on_hand_124 
VERTEX  gui_acc_officer_179 
VERTEX  j  et_gage_9 1 7 
VERTEX  jet_subtraction_9 1 4 
VERTEX  jet_addition_91 1 
VERTEX  mogas_addition_888 
VERTEX  mogas_subtraction_891 
VERTEX  mogas_gage_894 
VERTEX  other_iss_db_table_504 
VERTEX  other_rcpt_db_table_501 
VERTEX  bulk_iss_db_table_498 
VERTEX  bulk_rcpt_db_table_495 
VERTEX  daily_reporter_410:  750  MS 
VERTEX  df_iss_totalizer_352 
VERTEX  mg_iss_totalizer_349 
VERTEX  jet_iss_totalizer_346 
VERTEX  jet_rcpt_totalizer_280 
VERTEX  mg_rcpt_totalizer_277 
VERTEX  df_rcpt_totalizer_274 
VERTEX  bulk_rcpt_processor_198 
VERTEX  oth_rcpt_processor_207 
VERTEX  rcpt_processor_210 
VERTEX  oth_iss_processor_307 
VERTEX  bulk_iss_processor_310 
VERTEX  iss_processor_323 
VERTEX  daily_iss_db_table_743 
VERTEX  daily_rcpt_db_table_740 
VERTEX  monthly_reporter_601:  750  MS 
VERTEX  moJet_iss_totalizer_598 
VERTEX  mo_mg_iss_totalizer_595 
VERTEX  mo_df_iss_totalizer_592 
VERTEX  moJet_rcpt_totalizer_589 
VERTEX  mo_rag_rcpt_totalizer_586 
VERTEX  mo_df_rcpt_totalizer_583 
VERTEX  diesel_iss_acct_proc_934 
VERTEX  diesel_rcpt_acct_proc_937 
VERTEX  mogas_iss_acct_proc_940 
VERTEX  mogas_rcpt_acct_proc_943 
VERTEX  jet_iss_acct_proc_946 
VERTEX  jet_rcpt_acct_proc_949 
VERTEX  df_acct_calc_952 
VERTEX  mg_acct_calc_955 
VERTEX  jet_acct_calc_958 
VERTEX  diesel_gage_854 
VERTEX  diesel_subtraction_839 
VERTEX  diesel_addition_836 

EDGE  jetqtyonhand  jet_subtraction_9 1 4  ->  jet_gage_9 1 7 
EDGE  j  et_qty_on_hand  j  et_addition_9 1 1  ->  j  et_gage_9 1 7 
EDGE  jetvolume  jet_addition_91 1  ->  jet_addition_91 1 
EDGE  jet_volume  jet_subtraction_91 4  ->  jet_subtraction_9 1 4 
EDGE  jetqtyavailable  jet_gage_917  ->  gui_fuel_on_hand_124 
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EDGE  mogasvolume  mogas_addition_888  ->  mogas_addition_888 

EDGE  mogasvolume  mogas_subtraction_891  ->  mogas_subtraction_891 

EDGE  mgqtyonhand  mogas_addition_888  ->  mogas_gage_894 

EDGE  mgqtyonhand  mogas_subtraction_891  ->  mogas_gage_894 

EDGE  mogasqty  available  mogas_gage_894  ->  gui_fuel_on_hand_124 

EDGEjetisstotal  jet_iss_totalizer_346  ->  daily_reporter_410 

EDGE  mgisstotal  mg_iss_totalizer_349  ->  daily_reporter_4 1 0 

EDGE  df_iss_total  df_iss_totalizer_352  ->  daily_reporter_410 

EDGE  mg_iss_total  daily_reporter_410  ->  daily_reporter_410 

EDGE  dfisstotal  daily_reporter_410  ->  daily_reporter_410 

EDGE  jetisstotal  daily_reporter_410  ->  daily_reporter_410 

EDGE  jetrcpttotal  daily_reporter_410  ->  daily_reporter_410 

EDGE  mgrcpttotal  daily_reporter_410  ->  daily_reporter_410 

EDGE  dfrcpttotal  daily_reporter_410  ->  daily  _reporter_4 10 

EDGE  df_rcpt_total  df_rcpt_totalizer_274  ->  daily_reporter_410 

EDGE  mgrcpttotal  mg_rcpt_totalizer_277  ->  daily_reporter_410 

EDGE  jetrcpttotal  jet_rcpt_totalizer_280  ->  daily_reporter_410 

EDGE  i_df_qty  iss_processor_323  ->  df_iss_totalizer_352 

EDGE  i_mg_qty  iss_processor_323  ->  mg_iss_totalizer_349 

EDGE  ijetqty  iss_processor_323  ->  jet_iss_totalizer_346 

EDGE  rjetqty  rcpt_processor_210  ->  jet_rcpt_totalizer_280 

EDGE  rmgqty  rcpt_processor_210  ->  mg_rcpt_totalizer_277 

EDGE  r_df_qty  rcpt_processor_210  ->  df_rcpt_totalizer_274 

EDGE  othrcptenable  oth_rcpt_processor_207  ->  rcpt_processor_210 

EDGE  bulkrcptenable  bulk_rcpt_processor_198  ->  rcpt_processor_210 

EDGE  bulkissenable  bulk_iss_processor_310  ->  iss_processor_323 

EDGE  oth_iss_enable  oth_iss_processor_307  ->  iss_processor_323 

EDGE  dfrcpttotal  df_rcpt_totalizer_274  ->  df_rcpt_totalizer_274 

EDGE  mg_rcpt_total  mg_rcpt_totalizer_277  ->  mg_rcpt_totalizer_277 

EDGE  jet_rcpt_total  jet_rcpt_totalizer_280  ->  jet_rcpt_totalizer_280 

EDGE  jet_iss_total  jet_iss_totalizer_346  ->  jet_iss_totalizer_346 

EDGE  dfisstotal  df_iss_totalizer_352  ->  df_iss_totalizer_352 

EDGE  mgisstotal  mg_iss_totalizer_349  ->  mg_iss_totalizer_349 

EDGE  bulk_rcpt_enable  oth_rcpt_processor_207  ->  oth_rcpt_processor_207 

EDGE  othrcptenable  bulk_rcpt_processor_198  ->  bulk_rcpt_processor_198 

EDGE  oth_iss_enable  bulk_iss_processor_310  ->  bulk_iss_processor_3 1 0 

EDGE  bulkissenable  oth_iss_processor_307  ->  oth_iss_processor_307 

EDGE  eq_iss_unit  gui_other_issue_12  ->  other_iss_db_table_504 

EDGE  eq_iss_name  gui_other_issue_12  ->  other_iss_db_table_504 

EDGE  eq_iss_fuel_type  gui_other_issue_12  ->  other_iss_db_table_504 

EDGE  eq_iss_fuel_type  gui_other_issue_12  ->  oth_iss_processor_307 

EDGE  eq_iss  fuel_type  gui_other_issue_12  ->  iss_processor_323 

EDGE  eq_iss_id  gui_other_issue_12  ->  other_iss_db_table_504 

EDGE  eq_iss_qty  gui_other_issue_12  ->  other_iss_db_table_504 

EDGE  eq_iss_qty  gui_other_issue_12  ->  oth_iss_processor_307 

EDGE  eq_iss_qty  gui_other_issue_12  ->  iss_processor_323 

EDGE  bulk_rcv_unit  gui_bulk_issue_9  ->  bulk_iss_db_table_498 

EDGE  bulkissdocnum  gui_bulk_issue_9  ->  bulk_iss_db_table_498 

EDGE  bulkrcvname  gui_bulk_issue_9  ->  bulk_iss_db_table_498 

EDGE  bulkissqty  gui_bulk_issue_9  ->  bulk_iss_db_table_498 

EDGE  bulkissqty  gui_bulk_issue_9  ->  bulk_iss_processor_3 1 0 

EDGE  bulkissqty  gui_bulk_issue_9  ->  iss_processor_323 

EDGE  bulkiss  fueltype  gui_bulk_issue_9  ->  bulk_iss_db_table_498 

EDGE  bulkjssfueltype  gui_bulk_issue_9  ->  bulk_iss_processor_3 1 0 

EDGE  bulkiss  fueltype  gui_bulk_issue_9  ->  iss_processor_323 

EDGE  othrcptqty  gui_other_receipt_6  ->  other_rcpt_db_table_50 1 
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EDGE  othrcptqty  gui_other_receipt_6  ->  oth_rcpt_processor_207 
EDGE  othrcptqty  gui_other_receipt_6  ->  rcpt_processor_210 
EDGE  othrcptsourceunit  gui_other_receipt_6  ->  other_rcpt_db_table_501 
EDGE  othrcpt  fueltype  gui_other_receipt_6  ->  other_rcpt_db_table_501 
EDGE  othrcpt  fueltype  gui_other_receipt_6  ->  oth_rcpt_processor_207 
EDGE  othrcpt _fuel_type  gui_other_receipt_6  ->  rcpt_processor_210 
EDGE  oth_rcpt_source_id  gui_other_receipt_6  ->  other_rcpt_db_table_501 
EDGE  bulkrcptfueltype  gui_bulk_receipt_3  ->  bulkrcptdb  Jable_495 
EDGE  bulkrcpt  fueltype  gui_bulk_receipt_3  ->  bulk_rcpt_processor  1 98 
EDGE  bulkrcptfueltype  gui_bulk_receipt_3  ->  rcpt_processor_210 
EDGE  bulkrcptdocnumber  gui_bulk_receipt_3  ->  bulk_rcpt_db_table_495 
EDGE  bulk_rcpt_qty  gui_bulk_receipt_3  ->  bulk_rcpt_db_table_495 
EDGE  bulkrcptqty  gui_bulk_receipt_3  ->  bulk_rcpt_processor_198 
EDGE  bulkrcptqty  gui_bulk_receipt_3  ->  rcpt_processor_2 1 0 
EDGE  jetissqty  iss_processor_323  ->  jet_subtraction_914 
EDGE  jet_rcpt_qty  rcpt_processor_210  ->  jet_addition_91 1 
EDGE  mogasrcptqty  rcpt_processor_210  ->  mogas_addition_888 
EDGE  mogas_iss_qty  iss_processor_323  ->  mogas_subtraction_891 
EDGE  moissjettotal  monthly_reporter_601  ->  monthly_reporter_601 
EDGE  moissmgtotal  monthly_reporter_601  ->  monthly_reporter_601 
EDGE  moissdftotal  monthly_reporter_601  ->  monthly  _reporter_601 
EDGE  morcptjettotal  monthly_reporter_601  ->  monthly_reporter_601 
EDGE  mo_rcpt_mg_total  monthly_reporter_601  ->  monthly_reporter_601 
EDGE  mo_rcpt_df_total  monthly_reporter_601  ->  monthly_reporter_601 
EDGE  moissjettotal  moJet_iss_totalizer_598  ->  monthly_reporter_601 
EDGE  moissjettotal  mojet  iss_totalizer_598  ->  moJetJss_totalizer_598 
EDGE  mo  issmgtotal  momg  iss_totalizer_595  ->  monthly_reporter_601 
EDGE  mo  issmgtotal  momg  iss_totalizer_595  ->  momg  iss_totalizer_595 
EDGE  mo  issdftotal  modf  iss_totalizer_592  ->  monthly_reporter_601 
EDGE  mo  iss_df_total  modf  iss_totalizer_592  ->  modf  iss_totalizer_592 
EDGE  morcptjettotal  moJet_rcpt_totalizer_589  ->  monthly_reporter_601 
EDGE  morcptjetjotal  mojetrcpt  totalizer_589  ->  moJet_rcpt_totalizer_589 
EDGE  mo_rcpt_mg_total  mo_mg_rcpt_totalizer_586  ->  monthly_reporter_601 
EDGE  mo_rcpt_mg_total  mo_mg_rcpt_totalizer_586  ->  mo_mg_rcpt_totalizer_586 
EDGE  mo_rcpt_df_total  mo_df_rcpt_totalizer_583  ->  mo_df_rcpt_totalizer_583 
EDGE  mo_rcpt_df_total  mo_df_rcpt_totalizer_583  ->  monthly_reporter_601 
EDGE  daily_df_rcpt  total  daily_reporter_410  ->  dailyrcptdb  table_740 
EDGE  dailydfrcpttotal  daily_reporter_410  ->  mo_df_rcpt_totalizer_583 
EDGE  daily_df  isstotal  daily_reporter_410  ->  daily  iss_db_table_743 
EDGE  dailydfjssjotal  daily_reporter_410  ->  mo_df_iss_totalizer_592 
EDGE  daily  Jet  Jsstotal  daily_reporter_410  ->  daily  iss_db_table_743 
EDGE  dailyjet  isstotal  daily_reporter_410  ->  mojet JssJotalizer_598 
EDGE  daily Jetrcpttotal  daily_reporter_410  ->  dailyrcptdb  table_740 
EDGE  dailyjetrcpttotal  daily_reporter_410  ->  moJet_rcpt_totalizer_589 
EDGE  daily_mg_iss_total  daily_reporter_410  ->  daily  iss_db_table_743 
EDGE  dailymgjsstotal  daily_reporter_410  ->  momg  iss_totalizer_595 
EDGE  daily_mg_rcpt_total  daily_reporter_410  ->  daily_rcpt_db_table_740 
EDGE  daily_mg_rcptJotal  daily_reporter_410  ->  momgrcpt  totalizer_586 
EDGE  total_mo_df  iss  diesel  iss_acct_proc_934  ->  df_acct_calc_952 
EDGE  total_mo_df_rcpt  diesel_rcpt_acct_proc_937  ->  df_acct_calc_952 
EDGE  total_mo_mg  iss  mogas  iss_acct_proc_940  ->  mg_acct_calc_955 
EDGE  total_mo_mg_rcpt  mogas_rcpt_acct_proc_943  ->  mg_acct_calc_955 
EDGE  total_moJet_iss  jet  iss_acct_proc_946  ->  jet_acct_calc_958 
EDGE  totalmojet  rcpt  jet_rcpt_acctj?roc_949  ->  jet_acct_calc_958 
EDGE  openinginvdiesel  df_acct_calc_952  ->  df_acct_calc_952 
EDGE  openinginvmogas  mg_acct_calc_955  ->  mg_acct_calc_955 
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EDGE  openingjnvjet  jet_acct_calc_958  ->  jet_acct_calc_958 

EDGE  jetqtyavailable  jet_gage_9 1 7  ->  jet_acct_calc_958 

EDGE  mogasqty  available  mogas_gage_894  ->  mg_acct_calc_955 

EDGE  month_df_iss_total  monthly_reporter_601  ->  diesel_iss_acct_proc_934 

EDGE  monthdfrcpttotal  monthly_reporter_601  ->  diesel_rcpt_acct_proc_937 

EDGE  monthjetisstotal  monthly_reporter_601  ->  jet_iss_acct_proc_946 

EDGE  monthjetrcpttotal  monthly_reporter_601  ->  jet_rcpt_acct_proc_949 

EDGE  month_mg_iss_total  monthly_reporter_601  ->  mogas_iss_acct_proc_940 

EDGE  month_mg_rcpt_total  monthly_reporter_601  ->  mogas_rcpt_acct_proc_943 

EDGE  tolerance_df  df_acct_calc_952  ->  gui_acc_officer_179 

EDGE  tolerancemg  mg_acct_calc_955  ->  gui_acc_officer_179 

EDGE  tolerance  Jet  jet_acct_calc_958  ->  gui_acc_officer_179 

EDGE  dfqtyonhand  diesel_subtraction_839  ->  diesel_gage_854 

EDGE  df_qty_on_hand  diesel_addition_836  ->  diesel_gage_854 

EDGE  dieselvolume  diesel_subtraction_839  ->  diesel_subtraction_839 

EDGE  dieselvolume  diesel_addition_836  ->  diesel_addition_836 

EDGE  diesel_rcpt_qty  rcpt_processor_210  ->  diesel_addition_836 

EDGE  diesel_iss_qty  iss_processor_323  ->  diesel_subtraction_839 

EDGE  diesel_qty_available  diesel_gage_854  ->  gui_fuel_on_hand_124 

EDGE  diesel_qty_available  diesel_gage_854  ->  df_acct_calc_952 

DATA  STREAM 
jetqtyavailable:  integer, 
mogasqtyavailable:  integer, 
jet_iss_qty:  integer, 
jetrcptqty:  integer, 
mogas_rcpt_qty:  integer, 
mogasissqty:  integer, 
dieselqtyavailable:  integer, 
month_df_iss_total:  integer, 
monthdfrcpttotal:  integer, 
daily_df_rcpt_total:  integer, 
daily_df_iss_total:  integer, 
eq_iss_unit:  textstring, 
eq_iss_name:  textstring, 
eq_iss_fuel_type:  integer, 
eq_iss_id:  text_string, 
eq_iss_qty:  integer, 
bulkrcvunit:  textstring, 
bulk_iss_doc_num:  textstring, 
bulkrcvname:  textstring, 
bulkissqty:  integer, 
bulkiss  fueltype:  integer, 
othrcptqty:  integer, 
oth_rcpt_source_unit:  textstring, 
othrcpt  fueltype:  integer, 
oth_rcpt_source_id:  text_string, 
bulkrcptfueltype:  integer, 
bulkrcptdocnumber:  textstring, 
bulkrcptqty:  integer, 
daily  Jetisstotal:  integer, 
dailyjetrcpttotal:  integer, 
dailymgisstotal:  integer, 
dailymgrcpttotal:  integer, 
monthjetisstotal:  integer, 
monthjetrcpt  total:  integer, 
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monthmgisstotal:  integer, 
month_mg_rcpt_total:  integer, 
tolerancedf:  boolean, 
tolerancemg:  boolean, 
tolerancejet:  boolean, 
diesel_rcpt_qty:  integer, 
diesel_iss_qty:  integer, 
idfqty:  integer, 
imgqty:  integer, 
ijetqty:  integer, 
rjet_qty:  integer, 
r_mg_qty:  integer, 
rdfqty:  integer 
CONTROL  CONSTRAINTS 
OPERATOR  gui_bulk_receipt_3 
OPERATOR  gui_other_receipt_6 
OPERATOR  gui_bulk_issue_9 
OPERATOR  gui_other_issue_12 
OPERATOR  gui  fuel_on_hand_124 
OPERATOR  gui_acc_officer_179 
OPERATOR  j  et_gage_9 1 7 

TRIGGERED  BY  SOME  jet_qty_on_hand 
OPERATOR  j  et_subtraction_9 1 4 

TRIGGERED  BY  ALL  jet_iss_qty 
OPERATOR  jet_addition_91 1 

TRIGGERED  BY  ALL  jet_rcpt_qty 
OPERATOR  mogas_addition_888 

TRIGGERED  BY  ALL  mogas_rcpt_qty 
OPERATOR  mogas_subtraction_891 

TRIGGERED  BY  ALL  mogasissqty 
OPERATOR  mogas_gage_894 

TRIGGERED  BY  SOME  mg_qty_on_hand 
OPERATOR  other_iss_db_table_504 

TRIGGERED  BY  SOME  eq_iss_fuel_type,  eq_iss_qty,  eq_iss_id,  eq_iss_unit,  eq_iss_name 
OPERATOR  other_rcpt_db_table_501 

TRIGGERED  BY  SOME  othrcpt  fueltype,  othrcptqty,  othrcptsourceid,  othrcptsourceunit 
OPERATOR  bulk_iss_db_table_498 

TRIGGERED  BY  SOME  bulkissfuel  type,  bulkissqty,  bulkissdocnum,  bulkrcvunit, 
bulk_rcv_name 

OPERATOR  bulk_rcpt_db_table_495 

TRIGGERED  BY  SOME  bulkrcpt  fueltype,  bulk_rcpt_qty,  bulk_rcpt_doc_number 
OPERATOR  daily_reporter_410 

PERIOD  3600000  MS 

FINISH  WITHIN  750  MS 
OPERATOR  df_iss_totalizer_352 

TRIGGERED  BY  ALL  i_df_qty 
OPERATOR  mg_iss_totalizer_349 

TRIGGERED  BY  ALL  i_mg_qty 
OPERATOR  jet_iss_totalizer_346 

TRIGGERED  BY  ALL  i Jet_qty 
OPERATOR  j  et_rcpt_totalizer_280 

TRIGGERED  BY  ALL  rjet_qty 
OPERATOR  mg_rcpt_totalizer_277 

TRIGGERED  BY  ALL  r_mg_qty 
OPERATOR  df_rcpt_totalizer_274 

TRIGGERED  BY  ALL  r_df_qty 
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OPERATOR  bulk_rcpt_processor_198 

TRIGGERED  BY  ALL  bulkrcptfiieltype,  bulk_rcpt_qty 
OPERATOR  oth_rcpt_processor_207 

TRIGGERED  BY  ALL  oth_rcpt_fuel_type,  othrcptqty 
OPERATOR  rcpt_processor_210 

TRIGGERED  BY  SOME  bulk_rcpt_enable,  oth_rcpt_enable 
OPERATOR  oth_iss_processor_307 

TRIGGERED  BY  ALL  eq_iss_qty,  eq_iss_fiiel_type 
OPERATOR  bulk_iss__processor_3 10 

TRIGGERED  BY  ALL  bulkissjueltype,  bulkissqty 
OPERATOR  iss_processor_323 

TRIGGERED  BY  SOME  bulk_iss_enable,  oth_iss_enable 
OPERATOR  daily_iss_db_table_743 

TRIGGERED  BY  SOME  dailydfisstotal,  dailymgisstotal,  dailyjetisstotal 
OPERATOR  daily_rcpt_db_table_740 

TRIGGERED  BY  SOME  daily_df_rcpt_total,  daily_mg_rcpt_total,  dailyjetrcptjotal 
OPERATOR  monthly_reporter_601 

PERIOD  108000000  MS 

FINISH  WITHIN  750  MS 
OPERATOR  moJet_iss_totalizer_598 

TRIGGERED  BY  SOME  dailyJet_iss_total 
OPERATOR  mo_mg_iss_totalizer_595 

TRIGGERED  BY  SOME  dailymgisstotal 
OPERATOR  mo_df_iss_totalizer_592 

TRIGGERED  BY  SOME  daily_df_iss_total 
OPERATOR  moJet_rcpt_totalizer_589 

TRIGGERED  BY  SOME  dailyJet_rcpt_total 
OPERATOR  mo_mg_rcpt_totalizer_586 

TRIGGERED  BY  SOME  daily_mg_rcpt_total 
OPERATOR  mo_df_rcpt_totalizer_583 

TRIGGERED  BY  SOME  daily_df_rcpt_total 
OPERATOR  diesel_iss_acct_proc_934 

TRIGGERED  BY  SOME  month_df_iss_total 
OPERATOR  diesel_rcpt_acct_proc_937 

TRIGGERED  BY  SOME  month_df_rcpt_total 
OPERATOR  mogas_iss_acctjproc_940 

TRIGGERED  BY  SOME  month_mg_iss_total 
OPERATOR  mogas_rcpt_acct_proc_943 

TRIGGERED  BY  SOME  monthmgrcpttotal 
OPERATOR  jet_iss_acct_proc_946 

TRIGGERED  BY  SOME  monthJet_iss_total 
OPERATOR  jetrcptacct  j3roc_949 

TRIGGERED  BY  SOME  monthjetrcptjotal 
OPERATOR  df_acct_calc_952 

TRIGGERED  BY  ALL  total_mo_df_iss,  total_mo_df_rcpt 
OPERATOR  mg_acct_calc_955 

TRIGGERED  BY  ALL  totalmomgiss,  totalmomgrcpt 
OPERATOR  jet_acct_calc_958 

TRIGGERED  BY  ALL  totalmojetiss,  totalmojetrcpt 
OPERATOR  diesel_gage_854 

TRIGGERED  BY  SOME  df_qty_on_hand 
OPERATOR  diesel_subtraction_839 

TRIGGERED  BY  ALL  diesel_iss_qty 
OPERATOR  diesel_addition_836 

TRIGGERED  BY  ALL  diesel_rcpt_qty 
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DESCRIPTION  {The  Fuel  Automated  Subsystem  automates  Army  petroleum 

management/accountability  in  accordance  with  Army  Regulation  710-2  and  735-5.} 
END 
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APPENDIX  F 


--  File:  fuel_subsystem.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  Control  code  generated  by  CAPS 


package  FUEL_SUBSYSTEM_l_EXCEPTIONS  is 

~  PSDL  exception  type  declaration 

type  PSDL_EXCEPTION  is  (UNDECLARED_ADA_EXCEPTION); 
end  FUEL_SUBSYSTEM_l_EXCEPTIONS; 

package  FUEL_SUBSYSTEM_l_INSTANTIATIONS  is 
~  Ada  Generic  package  instantiations 

end  FUEL_SUBSYSTEM_l_INSTANTIATIONS; 

with  PSDL_TIMERS; 
package  FUEL_SUBSYSTEM_1_TIMERS  is 

—  Timer  instantiations 
end  FUEL_SUBSYSTEM_1_TIMERS; 

--  with/use  clauses  for  atomic  type  packages 

with  TEXT_STPJNG_PKG;  use  TEXT_STRING_PKG; 
--  with/use  clauses  for  generated  packages. 

with  FUEL_SUBSYSTEM_l_EXCEPTIONS;  use  FUEL_SUBSYSTEM_l_EXCEPTIONS; 

with  FUFX_SUBSYSTEM_1  INSTANTIATIONS;  use  FUEL_SUBSYSTEM_l_INSTANTIATIONS; 
--  with/use  clauses  for  CAPS  library  packages. 

with  PSDL_STREAMS;  use  PSDL_STREAMS; 
package  FUEL_SUBSYSTEM_1_STREAMS  is 
—  Local  stream  instantiations 

package  DS_JET_QTY_AVAILABLE_JET_ACCT_CALC_958  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_JET_QTY_AVATLABLE_GUI_FUEL_ON_HAND_124  is  new 
PSDL_STRE  AMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_MOGAS_QTY_AVATLABLE_MG_ACCT_CALC_955  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MOGAS_QTY_AVATLABLE_GUI_FUEL_ON_HAND_124  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_JET_ISS_QTY_JET_SUBTRACTION_914  is  new 
PSDL_STREAMS  .FTFO_BUFFER(INTEGER); 

package  DS_JET_RCPT_QTY_JET_ADDITION_91 1  is  new 
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PSDL_STREAMS  .FIFO_BUFFER(INTEGER); 

package  DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891  is  new 
PSDL_STREAMS  .FTFO_BUFFER(INTEGER); 

package  DS_DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_952  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_DF_ISS_TOTAL_DffiSEL_ISS_ACCT_PROC_934  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937  is  new 
PSDL.STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_DF_ISS_TOTAL_DAJLY_ISS_DB_TABLE_743  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_EQ_ISS_UMT_OTHER_ISS_DB_TABLE_504  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(  INTEGER); 

package  DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307  is  new 
PSDL_STREAMS.FTFO_BUFFER(INTEGER); 

package  DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_EQ_ISS_QTY_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_EQJSS_QTY_OTH_ISS_PROCESSOR_307  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 
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package  DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_BTXK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(TEXT_STRING); 

package  DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_BULK_ISS_QTY_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310  is  new 
PSDL_STREAMS.F1F0_BUFFER(INTEGER); 

package  DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210  is  new 
PSDL.STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207  is  new 
PSDL_STREAMS  .FIFO_BUFFER(INTEGER); 

package  DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207  is  new 
PSDL_STREAMS  .FIFO_BUFFER(INTEGER); 

package  DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 
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package  DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(TEXT_STRING); 

package  DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAK,Y_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743  is  new 
PSDL_STREAMS  .S  AMPLED_BUFFER(INTEGER); 

package  DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(INTEGER); 

package  DS_TOLERANCE_DF_GUl_ACC_OFFICER_179  is  new 
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PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 

package  DS_TOLERANCE_MG_GUI_ACC_OFFICER_179  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 

package  DS_TOLERANCE_JET_GUI_ACC_OFHCER_179  is  new 
PSDL_STREAMS.SAMPLED_BUFFER(BOOLEAN); 

package  DS_DESEL_RCPT_QTY_DESEL_ADDITION_836  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_DESEL_ISS_QTY_DIESEL_SUBTRACTION_839  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_I_DF_QTY_DF_ISS_TOTALIZER_352  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_I_MG_QTY_MG_ISS_TOTALIZER_349  is  new 
PSDL_STREAMS  .FIFO_BUFFER(INTEGER); 

package  DS_I_JET_QTY_JET_ISS_TOTALIZER_346  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_R_JET_QTY_JET_RCPT_TOTALIZER_280  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_R_MG_QTY_MG_RCPT_TOTALIZER_277  is  new 
PSDL_STREAMS.FIFO_BUFFER(INTEGER); 

package  DS_R_DF_QTY_DF_RCPT_TOTALIZER_274  is  new 
PSDL_STREAMS  .FIFO_BUFFER(INTEGER); 

~  State  stream  instantiations 

package  DS_JET_QTY_ON_HAND_JET_GAGE_917  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_VOLUME_JET_SUBTRACTION_914  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_VOLUME_JET_ADDITION_911  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_891  is  new 
PSDL_STPxEAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MOGAS_VOLUME_MOGAS_ADDITION_888  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MG_QTY_ON_HAND_MOGAS_GAGE_894  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_ISS_TOTAL_DAILY_REPORTER_410  is  new 
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PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MG_ISS_TOTAL_DAILY_REPORTER_410  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DF_ISS_TOTAL_DAILY_REPORTER_410  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_JET_RCPT_TOTAL_DAILY_REPORTER_410  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MG_RCPT_TOTAL_DAILY_REPORTER_410  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DF_RCPT_TOTAL_DAILY_REPORTER_410  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198  is  new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN,  false); 

package  DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210  is  new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN,  false); 

package  DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207  is  new 
PSDL_STREAMS .STATE_VARIABLE(BOOLEAN,  false); 

package  DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210  is  new 
PSDL_STREAMS .STATE_VARIABLE(BOOLEAN,  false); 

package  DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307  is  new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN,  false); 

package  DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS.STATE_VAR1ABLE(B00LEAN,  false); 

package  DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310  is  new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN,  false); 

package  DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323  is  new 
PSDL_STREAMS.STATE_VARIABLE(BOOLEAN,  false); 
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package  DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_0PEN1NG_INV_DIESEL_DF_ACCT_CALC_952  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 
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package  DS_OPENING_INV_MOGAS_MG_ACCT_CALC_955  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_OPENING_INV_JET_JET_ACCT_CALC_958  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DF_QTY_ON_HAND_DffiSEL_GAGE_854  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DESEL_VOLUME_DffiSEL_ADDITION_836  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

package  DS_DDESEL_VOLUME_DIESEL_SUBTRACTION_839  is  new 
PSDL_STREAMS.STATE_VARIABLE(INTEGER,  0); 

end  FUEL_SUBSYSTEM_1_STREAMS; 

package  FUEL_SUBSYSTEM_1_DRIVERS  is 
procedure  GUI_BULK_RECEIPT_3_DRIVER; 
procedure  GUI_OTHER_RECEIPT_6_DRIVER; 
procedure  GUI_BULK_ISSUE_9_DRIVER; 
procedure  GUI_OTHER_ISSUE_12_DRIVER; 
procedure  GUI_FUEL_ON_HAND_124_DRIVER; 
procedure  GUI_ACC_OFFICER_179_DRIVER; 
procedure  JET_GAGE_917_DRIVER; 
procedure  JET_SUBTRACTION_914_DRIVER; 
procedure  JET_ADDITION_9 11  .DRIVER; 
procedure  MOGAS_ADDITION_888_DRIVER; 
procedure  MOGAS_SUBTRACTION_891_DRIVER; 
procedure  MOGAS_GAGE_894_DRIVER; 
procedure  OTHER_ISS_DB_TABLE_504_DRIVER; 
procedure  OTHER_RCPT_DB_TABLE_501_DRIVER; 
procedure  BULK_ISS_DB_TABLE_498_DRIVER; 
procedure  BULK_RCPT_DB_TABLE_495_DRIVER; 
procedure  DATLY_REPORTER_410_DRIVER; 
procedure  DF_ISS_TOTALIZER_352_DRIVER; 
procedure  MG_ISS_TOTALIZER_349_DRIVER; 
procedure  JET_ISS_TOTALIZER_346_DRIVER; 
procedure  JET_RCPT_TOTALIZER_280_DRIVER; 
procedure  MG_RCPT_TOTALIZER_277_DRIVER; 
procedure  DF_RCPT_TOTALIZER_274_DRIVER; 
procedure  BULK_RCPT_PROCESSOR_198_DRIVER; 
procedure  OTH_RCPT_PROCESSOR_207_DRIVER; 
procedure  RCPT_PROCESSOR_210_DRIVER; 
procedure  OTH_ISS_PROCESSOR_307_DRIVER; 
procedure  BULK_ISS_PROCESSOR_310_DRIVER; 
procedure  ISS_PROCESSOR_323_DRIVER; 
procedure  DAILY_ISS_DB_TABLE_743_DRIVER; 
procedure  DAJLY_RCPT_DB_TABLE_740_DRIVER; 
procedure  MONTHLY_REPORTER_601  .DRIVER; 
procedure  MO_JET_ISS_TOTALIZER_598_DRIVER; 
procedure  MO_MG_ISS_TOTALIZER_595_DRIVER; 
procedure  MO_DF_ISS_TOTALIZER_592_DRIVER; 
procedure  MO_JET_RCPT_TOTALIZER_589_DRIVER; 
procedure  MO_MG_RCPT_TOTALIZER_586_DRIVER; 
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procedure  MO_DF_RCPT_TOTALIZER_583_DRIVER; 
procedure  DIESEL_ISS_ACCr_PROC_934_DRIVER; 
procedure  DIESEL_RCPT_ACCT_PROC_937_DRIVER; 
procedure  MOGAS_ISS_ACCT_PROC_940_DRIVER; 
procedure  MOGAS_RCPT_ACCT_PROC_943_DRIVER; 
procedure  JET_ISS_ACCT_PROC_946_DRIVER; 
procedure  JET_RCPT_ACCT_PROC_949_DRIVER; 
procedure  DF_ACCT_CALC_952_DRIVER; 
procedure  MG_ACCT_CALC_955_DRIVER; 
procedure  JET_ACCT_CALC_958_DRTVER; 
procedure  DffiSEL_GAGE_854_DRIVER; 
procedure  DEESEL_SUBTRACTION_839_DRIVER; 
procedure  DffiSEL_ADDITION_836_DRIVER; 
end  FUEL_SUBSYSTEM_1_DRIVERS; 

-  with/use  clauses  for  atomic  components, 
with  TEXT_STRING_PKG;  use  TEXT_STRING_PKG; 

with  OTHER_ISS_DB_TABLE_504_PKG;  use  OTHER_ISS_DB_TABLE_504_PKG; 
with  OTHER_RCPT_DB_TABLE_501_PKG;  use  OTHER_RCPT_DB_TABLE_501_PKG; 
with  BULK_ISS_DB_TABLE_498_PKG;  use  BULK_ISS_DB_TABLE_498_PKG; 
with  BULK_RCPT_DB_TABLE_495_PKG;  use  BULK_RCPT_DB_TABLE_495_PKG; 
with  DATLY_REPORTER_410_PKG;  use  DAILY_REPORTER_410_PKG; 
with  DF_ISS_TOTALIZER_352_PKG;  use  DF_ISS_TOTALIZER_352_PKG; 
with  MG_ISS_TOTALIZER_349_PKG;  use  MG_ISS_TOTALIZER_349_PKG; 
with  JET_ISS_TOTALIZER_346_PKG;  use  JET_ISS_TOTALIZER_346_PKG; 
with  JET_RCPT_TOTALIZER_280_PKG;  use  JET_RCPT_TOTALIZER_280_PKG; 
with  MG_RCPT_TOTALIZER_277_PKG;  use  MG_RCPT_TOTALIZER_277_PKG; 
with  DF_RCPT_TOTALIZER_274_PKG;  use  DF_RCPT_TOTALIZER_274_PKG; 
with  BULK_RCPT_PROCESSOR_198_PKG;  use  BULK_RCPT_PROCESSOR_198_PKG; 
with  OTH_RCPT_PROCESSOR_207_PKG;  use  OTH_RCPT_PROCESSOR_207_PKG; 
with  RCPT_PROCESSOR_210_PKG;  use  RCPT_PROCESSOR_210_PKG; 
with  OTH_ISS_PROCESSOR_307_PKG;  use  OTH_ISS_PROCESSOR_307_PKG; 
with  BULK_ISS_PROCESSOR_310_PKG;  use  BULK_ISS_PROCESSOR_310_PKG; 
with  ISS_PROCESSOR_323_PKG;  use  ISS_PROCESSOR_323_PKG; 
with  JET_GAGE_917_PKG;  use  JET_GAGE_917_PKG; 
with  JET_SUBTRACTION_914_PKG;  use  JET_SUBTRACTION_914_PKG; 
with  JET_ADDmON_91 1_PKG;  use  JET_ADDITION_91 1_PKG; 
with  MOGAS_ADDITION_888_PKG;  use  MOGAS_ADDITION_888_PKG; 
with  MOGAS_SUBTRACTION_891_PKG;  use  MOGAS_SUBTRACTION_891_PKG; 
with  MOGAS_GAGE_894_PKG;  use  MOGAS_GAGE_894_PKG; 
with  GUI_BULK_RECEIPT_3_PKG;  use  GUI_BULK_RECEIPT_3_PKG; 
with  GUI_OTHER_RECEIPT_6_PKG;  use  GUI_OTHER_RECEIPT_6_PKG; 
with  GUI_BTJLK_ISSUE_9_PKG;  use  GUI_BULK_ISSUE_9_PKG; 
with  GUI_OTHER_ISSUE_12_PKG;  use  GUI_OTHER_ISSUE_12_PKG; 
with  DATLY_ISS_DB_TABLE_743_PKG;  use  DAILY_ISS_DB_TABLE_743_PKG; 
with  DAILY_RCPT_DB_TABLE_740_PKG;  use  DAILY_RCPT_DB_TABLE_740_PKG; 
with  MONTHLY_REPORTER_601_PKG;  use  MONTHLY_REPORTER_601_PKG; 
with  MO_JET_ISS_TOTALIZER_598_PKG;  use  MO_JET_ISS_TOTALIZER_598_PKG; 
with  MO_MG_ISS_TOTALIZER_595_PKG;  use  MO_MG_ISS_TOTALIZER_595_PKG; 
with  MO_DF_ISS_TOTALIZER_592_PKG;  use  MO_DF_ISS_TOTALIZER_592_PKG; 
with  MO_JET_RCPT_TOTALIZER_589_PKG;  use  MO_JET_RCPT_TOTALIZER_589_PKG; 
with  MO_MG_RCPT_TOTALIZER_586_PKG;  use  MO_MG_RCPT_TOTALIZER_586_PKG; 
with  MO_DF_RCPT_TOTALIZER_583_PKG;  use  MO_DF_RCPT_TOTALIZER_583_PKG; 
with  DffiSEL_ISS_ACCT_PROC_934_PKG;  use  DIESEL_ISS_ACCT_PROC_934_PKG; 
with  DffiSEL_RCPT_ACCT_PROC_937_PKG;  use  DffiSEL_RCPT_ACCT_PROC_937_PKG; 
with  MOGAS_ISS_ACCT_PROC_940_PKG;  use  MOGAS_ISS_ACCT_PROC_940_PKG; 
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with  MOGAS_RCPT_ACCT_PROC_943_PKG;  use  MOGAS_RCPT_ACCT_PROC_943_PKG; 

with  JET_ISS_ACCT_PROC_946_PKG;  use  JET_ISS_ACCT_PROC_946_PKG; 

with  JET_RCPT_ACCT_PROC_949_PKG;  use  JET_RCPT_ACCT_PROC_949_PKG; 

with  DF_ACCT_CALC_952_PKG;  use  DF_ACCT_CALC_952_PKG; 

with  MG_ACCT_CALC_955_PKG;  use  MG_ACCT_CALC_955_PKG; 

with  JET_ACCT_CALC_958_PKG;  use  JET_ACCT_CALC_958_PKG; 

with  GUI_FUEL_ON_HAND_124_PKG;  use  GUI_FUEL_ON_HAND_124_PKG; 

with  GUI_ACC_OFFICER_179_PKG;  use  GUI_ACC_OFFICER_179_PKG; 

with  DffiSEL_GAGE_854_PKG;  use  DffiSEL_GAGE_854_PKG; 

with  DIESEL_SUBTRACTION_839_PKG;  use  DffiSEL_SUBTRACTION_839_PKG; 

with  DffiSEL_ADDITION_836_PKG;  use  DffiSEL_ADDITION_836_PKG; 
--  with/use  clauses  for  generated  packages. 

with  FUEL_SUBSYSTEM_l_EXCEPTIONS;  use  FUEL_SUBSYSTEM_1_EXCEPTI0NS; 

with  FUEL_SUBSYSTEM_1_STREAMS;  use  FUEL_SUBSYSTEM_1_STREAMS; 

with  FUEL_SUBSYSTEM_1_TIMERS;  use  FUEL_SUBSYSTEM_1_TIMERS; 

with  FUEL_SUBSYSTEM_1_INSTANTIATT0NS;  use  FUEL_SUBSYSTEM_1_INSTANTIATI0NS; 
--  with/use  clauses  for  CAPS  library  packages. 

with  DS_DEBUG_PKG;  use  DS_DEBUG_PKG; 

with  PSDL_STREAMS;  use  PSDL_STREAMS; 

with  PSDL_TIMERS; 
package  body  FTJEL_SUBSYSTEM_1_DRIVERS  is 

procedure  GUI_BULK_RECEIPT_3_DRIVER  is 
LV_BULK_RCPT_FUEL_TYPE  :  INTEGER; 

LV_BULK_RCPT_DOC_NUMBER :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCPT_QTY  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

--  Data  stream  reads. 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

GUI_BULK_RECEIPT_3( 
BULK_RCPT_FUEL_TYPE  =>  LV_BULK_RCPT_FUEL_TYPE, 
BULK_RCPT_DOC_NUMBER  =>  LV_BULK_RCPT_DOC_NUMBER, 
BULK_RCPT_QTY  =>  LV_BULK_RCPT_QTY); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("Gm_BULK_RECETPT_3"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations, 
if  not  EXCEPTION_HAS_OCCURRED  then 
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begin 

DS3ULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_FUEL 
_TYPE); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210", 
"GUI_BULK_RECEIPT_3"); 
end; 
begin 

DS3ULK^CPT_FUEL_TYPE3ULK_RCPT_PR0CESS0R_198.BUFFER.WRITE(LV_BULK_RCP 
T_FUEL_TYPE); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198", 
"GUI.BULK.RECEIPT.S"); 

end; 

begin 

DS3ULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495.BUFFER.WRITE(LV_BULK_RCPT_ 
FUEL_TYPE); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495", 
"GUI_BULK_RECEIPT_3"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULK3CPT_DOC_^^JMBER3l^.K3CPT3B_TABLE_495.BUFEER.WR^TE(LV_BULK_RC 
PT_DOC_NUMBER); 
exception 
when  BUFFER_OVERFLOW  => 

DS^EBUG.BUFFER_OVERFLOW("BULK3CPT_D(X:_>riJMBER_BULK_RCPT_DB_TABLE_495 
",  "GUI_BULK_RECEIPT_3"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_QTY); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,'BULK_RCPT_QTY_RCPT_PROCESSOR_2 10" , 
"GUI_BULK_RECEIPT_3"); 
end; 
begin 

DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_BULK_RCPT_QTY); 
exception 
when  BUFFER  OVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198", 
"GUI_BULK_RECEIPT_3 "); 
end; 
begin 

DS3ULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495.BUFFER.WRITE(LV_BULK_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495", 
"GUI_BULK_RECEIPT_3 "); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_BULK_RECEIPT_3  ", 
PSDL_EXCEPTION*IMAGE(EXCEPTION_ID)); 
end  if; 
end  GUI_BULK_RECEIPT_3_DRIVER; 


procedure  GUI_OTHER_RECEIPT_6_DRIVER  is 
LV_OTH_RCPT_QTY  :  INTEGER; 

LV_OTH_RCPT_SOURCE_UNIT :  TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_FUEL_TYPE :  INTEGER; 
LV_OTH_RCPT_SOURCE_ID  :  TEXT_STRING_PKG.TEXT_STRING; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

--  Data  stream  reads. 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

GUI_OTHER_RECEIPT_6( 
OTH_RCPT_QTY  =>  LV_OTH_RCPT_QTY, 
OTH_RCPT_SOURCE_UNIT  =>  LV_OTH_RCPT_SOURCE_UNIT, 
OTH_RCPT_FUEL_TYPE  =>  LV_OTH_RCPT_FUEL_TYPE, 
OTH_RCPT_SOURCE_ID  =>  LV_OTH_RCPT_SOURCE_ID); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_OTHER_RECEIPT_6"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 
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-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_0  VERFLOW("OTH_RCPT_QT  Y_RCPT_PROCES  SOR_2 10" , 
"GUI_OTHER_RECEIPT_6"); 
end; 
begin 

DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207", 
"GUI_OTHER_RECEIPT_6"); 
end; 
begin 

DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501", 
"GUI_OTHER_RECEIPT_6"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCP 
T_SOURCE_UNIT); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_501 
",  "GUI_OTHER_RECEIPT_6"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_FUEL_T 
YPE); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210", 
MGUI_OTHER_RECEIPT_6"); 
end; 
begin 

DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_OTH_RCPT_FU 
EL_TYPE); 
exception 
when  BUFFER  OVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207", 
"GUI_0THER_RECEIPT_6"); 

end; 

begin 

DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501.BUFFER.WRITE(LV_OTH_RCPT_F 
UEL_TYPE); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501", 
"GUI_OTHER_RECEIPT_6"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_50 1  .BUFFER.  WRITE(LV_OTH_RCPT_S 
OURCEJD); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501M, 
"GUI_OTHER_RECEIPT_6"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_OTHER_RECEIPT_6", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  GUI_OTHER_RECEIPT_6_DRIVER; 


procedure  GUI_BULK_ISSUE_9_DRIVER  is 
LV_BULK_RCV_UNIT :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_DOC_NUM  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCV_NAME  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_QTY  :  INTEGER; 
LV_BULK_ISS_FUEL_TYPE  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
-  Data  trigger  checks. 

--  Data  stream  reads. 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

GUI_BULK_ISSUE_9( 
BULK_RCV_UNIT  =>  LV_BULK_RCV_UNIT, 
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BULK_ISS_DOC_NUM  =>  LV_BULK_ISS_DOC_NUM, 
BULK_RCV_NAME  =>  LV_BULK_RCV_NAME, 
BULK_ISS_QTY  =>  LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE  =>  LV_BULK_ISS_FUEL_TYPE); 
exception 
when  others  => 
DS_DEBUG.UNDECLAPxED_EXCEPTION("GUI_BULK_ISSUE_9"); 
EXCEFTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULK_RCV_UMT_BULKJSS_DB_TABI^_498.BUFFER.WRITE(LV_BULK_RCV_UNrT); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498", 
"GUI_BULK_ISSUE_9"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULKJSS_DOC_NUM_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_DOC_N 
UM); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498", 
"GUI_BULK_ISSUE_9"); 
end; 
end  if; 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULK_RCV_NAME3ULKJSS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_RCV_NAME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCV_NAME_BULK_ISS_DB_TABLE_498", 
"GUI_BULK_ISSUE_9"); 
end; 
end  if; 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS_BULK_ISS_QTY_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_ISS_PROCESSOR_323 " , 
"GUI_BULK_ISSUE_9"); 
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end; 
begin 

DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_BULK_ISS_PROCESSOR_310", 
"GUI_BULK_ISSUE_9"); 
end; 
begin 

DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_QTY_BULK_ISS_DB_TABLE_498", 
"GUI_BULK_ISSUE_9"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_BULKJSS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.WRrrE(LV_BULK_ISS_FLIEL_TYPE 

); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"GUI_BULK_ISSUE_9"); 
end; 
begin 

DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_BULK_ISS_FUEL 
_TYPE); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310", 
"GUI_BULK_ISSUE_9"); 

end; 

begin 

DS3ULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.BUFFER.WRITE(LV_BULK_ISS_FUEL_ 
TYPE); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498", 
"GU1_BULK_ISSUE_9"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_BULK_ISSUE_9", 

PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  GUI_BULK_ISSUE_9_DRIVER; 
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procedure  GUI_OTHER_ISSUE_12_DRIVER  is 
LV_EQ_ISS_UNIT  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_NAME :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_FUEL_TYPE :  INTEGER; 
LV_EQ_ISS_ID  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_QTY :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
~  Data  trigger  checks. 

—  Data  stream  reads. 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

GUI_OTHER_ISSUE_12( 
EQ_ISS_UNIT  =>  LV_EQ_ISS_UNIT, 
EQ_ISS_NAME  =>  LV_EQ_ISS_NAME, 
EQ_ISS_FUEL_TYPE  =>  LV_EQ_ISS_FUEL_TYPE, 
EQ_ISS_ID  =>  LV_EQ_ISS_ID, 
EQ_ISS_QTY  =>  LV_EQ_ISS_QTY); 
exception 
when  others  => 
DS_DEBUG.U>TOECLARED_EXCEPnON(,,GW_OTHER_ISSUE_12"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_EQJSS_UMT_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_UNIT); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_UNIT_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISSUE_12"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_NAME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISSUE_12"); 
end; 
end  if; 
if  not  EXCEPTION_HAS_OCCURRED  then 
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begin 

DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_EQ_ISS_FUEL_TYPE); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(*,EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"GUI_OTHER_ISSUE_12"); 
end; 
begin 

DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_EQ_ISS_FUEL_TYPE) 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307", 
"GUI_OTHER_ISSUE_12"); 
end; 
begin 

DS_EQJSS_FTJEL_TYPE_OTHER_ISS^B_TABI^_504.BUFFER.WRITE(LV_EQ_ISS_FUEL_TYP 
E); 

exception 
when  BUFFER.OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISSUE_12"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.BUFFER.WRITE(LV_EQ_ISS_ID); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_ID_OTHER_ISS_DB_TABLE_504", 
"GUI_OTHER_ISSUE_12"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_EQ_ISS_QTY_ISS_PROCESSOR_323.BUFFER.WRITE(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_ISS_PROCESSOR_323", 
"GUI_OTHER_ISSUE_12"); 
end; 
begin 

DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_OTH_ISS_PROCESSOR_307", 
"GUI_OTHER_ISS  UE_  1 2"); 
end; 
begin 

DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.BUFFER.WR1TE(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504", 
"GUI_0THER_ISSUE_12"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_OTHER_ISSUE_12", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  GUI_OTHER_ISSUE_12_DRIVER; 


procedure  GUI_FUEL_ON_HAND_124_DRIVER  is 
LV_JET_QTY_AVATLABLE  :  INTEGER; 
LV_MOGAS_QTY_AVATLABLE :  INTEGER; 
LV_DffiSEL_QTY_AVATLABLE :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

—  Data  stream  reads. 

begin 

DS_JET_QTY_AVAILABLE_Gm_FUEL_ON_HAND_124.BUFFER.READ(LV_JET_QTY_AVAILAB 
LE); 

exception 
when  BUFFERJJNDERFLOW  => 
DS_DEBUG.BUFFER_UNDEPJ^OW(''JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124", 
"GUI_FUEL_ON_HAND_124"); 
end; 
begin 

DS_MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.READ(LV_MOGAS_QTY_ 
AVAILABLE); 
exception 
when  BUFFERJJNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW(,,MOGAS_QTY_AVArLABLE_GUI_FUEL_ON_HAND_124", 
"GUI_FUEL_ON_HAND_124"); 

end; 

begin 

DS_DlESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.READ(LV_DrESEL_QTY_A 
VATLABLE); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124", 
"GUI_FUEL_ON_HAND_124"); 
end; 

—  Execution  trigger  condition  check. 
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if  True  then 
begin 

GUI_FUEL_ON_HAND_124( 
JET_QTY_AVATLABLE  =>  LV_JET_QTY_AVATLABLE, 
MOGAS_QTY_AVATLABLE  =>  LV_MOGAS_QTY_AVATLABLE, 
DESEL_QTY_AVATLABLE  =>  LV_DIESEL_QTY_A  VAIL  ABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("GUI_FUEL_ON_HAND_124"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_FUEL_ON_HAND_124", 
PSDL.EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  GUI_FUEL_ON_HAND_124_DRIVER; 


procedure  GUI_ACC_OFFICER_179_DRIVER  is 
LV_TOLERANCE_DF :  BOOLEAN; 
LV_TOLERANCE_MG :  BOOLEAN; 
LV_TOLERANCE_JET :  BOOLEAN; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

-  Data  stream  reads. 

begin 

DS_TOLERANCE_DF_GUI_ACC_OFnCER_179.BUFFER.READ(LV_TOLERANCE_DF); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_DF_GUI_ACC_OFHCER_  1 79" , 
•GUI_ACC_OFFICER_179"); 
end; 
begin 

DS_TOLERANCE_MG_GUI_ACC_OFHCER_179.BUFFER.READ(LV_TOLERANCE_MG); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_MG_GUI_ACC_OFFICER_179", 
"GUI_ACC_0FF1CER_179"); 
end; 
begin 
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DS_TOLERANCE_JET_GUI_ACC_OFHCER_179.BUFFER.READ(LV_TOLERANCE_JET); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOLERANCE_JET_GUI_ACC_OFnCER_179", 
'GUI_ACC_OFnCER_179"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

GUI_ACC_OFFICER_179( 
TOLERANCE_DF  =>  LV_TOLERANCE_DF, 
TOLERANCE_MG  =>  LV_TOLERANCE_MG, 
TOLERANCE_JET  =>  LV_TOLERANCE_JET); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEFTION("GUI_ACC_OFnCER_179"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 
—Unconditional  output  translations. 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"GUI_ACC_OFFICER_179", 
PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if; 
end  GUI_ACC_OFFICER_179_DRIVER; 


procedure  JET_GAGE_917_DRIVER  is 
LV_JET_QTY_ON_HAND  :  INTEGER; 
LV_JET_QTY_AVATLABLE :  INTEGER; 

EXCEPTIONHAS  JDCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTIONJD:  PSDL.EXCEPTION; 
begin 
Data  trigger  checks. 

if  not  (DS_JET_QTY_ON_HAND_JET_GAGE_917.NEW_DATA)  then 
return; 

end  if; 

Data  stream  reads, 
begin 

DS_JET_QTY_0N_HAND_JET_GAGE317.BUFFER.READ(LV_JET_QTY_0N_HAND); 
exception 

when  BUFFER  UNDERFLOW^ 
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DS_DEBUG.BUFFER_LnvfDERFLOW("JET_QTY_ON_HAND_JET_GAGE_917", 
"JET_GAGE_917"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_GAGE_917( 
JET_QTY_ON_HAND  =>  LV_JET_QTY_ON_HAND, 
JET_QTY_AVATLABLE  =>  LV_JET_QTY_AVATLABLE); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("JET_GAGE_917"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTTONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_QTY_AVArLABLE_JET_ACCT_CALC_958.BUFFER.WRITE(LV_JET_QTY_AVATLABLE) 

» 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_QTY_AVArLABLE_JET_ACCT_CALC_958", 
"JET_GAGE_917"); 
end; 
begin 

DS_JET_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.WRITE(LV_JET_QTY_AVAILA 
BLE); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_QTY_AVArLABLE_GUI_FUEL_ON_HAND_124", 

"JET_GAGE_917"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_GAGE_917*\ 

PSDl^EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  JET_GAGE_917_DRIVER; 


procedure  JET_SUBTRACTION_914_DRIVER  is 
LV_JET_ISS_QTY  :  INTEGER; 
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LV_JET_QTY_ON_HAND  :  INTEGER; 
LV_JET_VOLUME  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_JET_ISS_QTY_JET_SUBTRACTION_914.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.READ(LV_JET_VOLUME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UlNn)ERFLOW("JET_VOLUME_JET_SUBTRACTION_914", 
1  JET_SUBTRACTION_9 14"); 
end; 
begin 

DS_JET_ISS_QTY_JET_SUBTRACTION_914.BUFFER.READ(LV_JET_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_QTY_JET_SUBTRACTION_914", 
"JET_SUBTRACTION_9 14"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_SUBTRACTION_9 14( 
JET_ISS_QTY  =>  LV_JET_ISS_QTY, 
JET_QTY_ON_HAND  =>  LV_JET_QTY_ON_HAND, 
JET_VOLUME  =>  LV_JET_VOLUME); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_SUBTRACTION_914"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  ;=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 
DS_JET_QTY_ON_HAND_JET_GAGE_917.BUFT^R.WRITE(LV_JET_QTY_ON_HAND); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_QTY_ON_HAND_JET_GAGE_917", 
"  JET_SUBTRACTION_9 14"); 
end; 
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end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.WRITE(LV_JET_  VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_VOLUME_JET_SUBTRACTION_914", 
'  JET_SUBTRACTION_9 14"); 
end; 
begin 

DS_JET_VOLUME_JET_ADDITION_9 1  l.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_VOLUME_JET_ADDITION_911", 
"  JET_SUBTRACTION_9 14"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_SUBTRACTION_9 14", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_SUBTRACTION_914_DRIVER; 


procedure  JET_ADDITION_91 1  .DRIVER  is 
LV_JET_RCPT_QTY  :  INTEGER; 
LV_JET_QTY_ON_HAND  :  INTEGER; 
LV_JET_VOLUME  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_JET_RCPT_QTY_JET_ADDITION_91LNEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_JET_VOLUME_JET_ADDITION_9 1 1  .BUFFER.READ(LV_JET_  VOLUME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_VOLUME_JET_ADDITION_9 11", 
"  JET_ADDITION_9 1 1 "); 
end; 
begin 

DS_JET_RCPT_QTY_JET_ADDITION_9 1 1  .BUFFER.RE  AD(LV_JET_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("  JET_RCPT_QTY_JET_ADDITION_9 1 1 ", 

"  JET_ADDITION_9 1 1 "); 
end; 
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--  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_ADDITION_911( 
JET_RCPT_QTY  =>  LV_JET_RCPT_QTY, 
JET_QTY_ON_HAND  =>  LV_JET_QTY_ON_HAND, 
JET_VOLUME  =>  LV_JET_VOLUME); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("  JET_ADDITION_9 11"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_QTY_ON_HAND_JET_GAGE_917.BUFFER.WRITE(LV_JET_QTY_ON_HAND); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("  JET_QTY_ON_HAM)_JET_GAGE_9 17", 
"JET_ADDITION_9 1 1 "); 
end; 
end  if; 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_VOLUME_JET_SUBTRACTION_914.BUFFER.WRTTE(LV_JET_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("  JET_VOLUME_JET_SUBTRACTION_9 14" , 
"JET_ADDrTION_9 1 1 "); 
end; 
begin 

DS_JET_VOLUME_JET_ADDITION_9 1  l.BUFFER.WRITE(LV_JET_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_VOLUME_JET_ADDITION_911", 
"  JET_ADDITION_9 11"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ADDITION_911", 

PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_ADDITION_91 1_DRIVER; 
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procedure  MOGAS_ADDITION_888_DRIVER  is 
LV_MOGAS_RCPT_QTY  :  INTEGER; 
LV_MOGAS_VOLUME  :  INTEGER; 
LV_MG_QTY_ON_HAND  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 
~  Data  trigger  checks. 

if  not  (DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.NEW_DATA)  then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.BUFFERREAD(LV_MOGAS_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_RCPT_QTY_MOGAS_ADDITION_888", 
"MOGAS_ADDrnON_888"); 
end; 
begin 

DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.READ(LV_MOGAS_VOLUME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUrT^R_UNDERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_888", 
"MOGAS_ADDITION_888"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

MOGAS_ADDiTION_888( 
MOGAS_RCPT_QTY  =>  LV_MOGAS_RCPT_QTY, 
MOGAS_VOLUME  =>  LV_MOGAS_VOLUME, 
MG_QTY_ON_HAND  =>  LV_MG_QTY_ON_HAND); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_ADDITION_888"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MOG  AS_VOLUME_MOG  AS_S  UBTRACTION_89 1  .BUFFER.  WRITE(LV_MOGAS_VOLUME); 
exception 
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when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_SUBTRACTION_891", 
"MOGAS_ADDITION_888"); 
end; 
begin 

DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_VOLUME); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_888", 
"MOGAS_ADDITION_888"); 
end; 
end  if; 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.WRITE(LV_MG_QTY_ON_HAND); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_QTY_ON_HAND_MOGAS_GAGE_894", 
"MOGAS_ADDITION_888"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_ADDITION_888", 
PSDL_EXCEPTION*IMAGE(EXCEPTION_ID)); 
end  if; 
end  MOGAS_ADDITION_888_DRIVER; 


procedure  MOGAS_SUBTRACTION_891_DRIVER  is 
LV_MOGAS_ISS_QTY  :  INTEGER 
LV_MOGAS_VOLUME  :  INTEGER; 
LV_MG_QTY_ON_HAND  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_rD;  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_89 1  .BUFFER.READ(LV_MOGAS_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891", 
"MOGAS_SUBTRACTION_89 1 "); 
end; 
begin 

DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_89 1  .BUFFERREAD(LV_MOGAS_VOLUME); 
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exception 
when  BUFFER_UNDERFLOW  => 
DS.DEBUG.BUFFER.UNDERFLOWC^OGAS.VOLUME.MOGAS.SUBTRACTION.gQl", 
"MOGAS_SUBTRACTION_891"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

MOGAS_SUBTRACTION_89 1( 
MOGAS_ISS_QTY  =>  LV_MOGAS_ISS_QTY, 
MOGAS_VOLUME  =>  LV_MOGAS_VOLUME, 
MG_QTY_ON_HAND  =>  LV_MG_QTY_ON_HAND); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_SUBTRACTION_89 1 "); 
EXCEPTION_HASiOCCURRED  :=  true; 
EXCEPTION.ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MOGAS_VOLUME_MOGAS_SUBTRACTION_89 1  .BUFFER.  WRITE(LV_MOGAS_VOLUME); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_SUBTRACTION_89 1 ", 
"MOGAS_SUBTRACTION_89 1 "); 
end; 
begin 

DS_MOGAS_VOLUME_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_VOLUME_MOGAS_ADDITION_888", 
'•MOGAS_SUBTRACTION_891"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.WRITE(LV_MG_QTY_ON_HAND); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_QTY_ON_HAND_MOGAS_GAGE_894", 
"  MOG  AS_S  UBTRACTION_89 1 "); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
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DS_DEBUG.UNHANDLED_EXCEPTION( 
MMOGAS_SUBTRACTION_89 1 ", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  MOGAS_SUBTRACTION_891_DRIVER; 


procedure  MOGAS_GAGE_894_DRIVER  is 
LV_MG_QTY_ON_HAND  :  INTEGER; 
LV_MOGAS_QTY_AVATLABLE  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
-  Data  trigger  checks. 

if  not  (DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.NEW_DATA)  then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_MG_QTY_ON_HAND_MOGAS_GAGE_894.BUFFER.READ(LV_MG_QTY_ON_HAND); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(,,MG_QTY_ON_HAND_MOGAS_GAGE_894,,, 
"MOGAS_GAGE_894"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

MOGAS_GAGE_894( 
MG_QTY_ON_HAND  =>  LV_MG_QTY_ON_HAND, 
MOGAS_QTY_AVATLABLE  =>  LV_MOGAS_QTY_AVATLABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("MOGAS_GAGE_894"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MOGAS_QTY_AVAJLABLE_MG_ACCT_CALC_955.BUFFER.WRITE(LV_MOGAS_QTY_AVA 
ILABLE); 
exception 
when  BUFFER  OVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("MOGAS_QTY_AVAILABLE_MG_ACCT_CALC_955", 
"MOGAS_GAGE_894"); 
end; 
begin 

DS_MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124.BUFFER.WRITE(LV_MOGAS_QTY 
AVAILABLE); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MOGAS_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124", 
"MOGAS_GAGE_894"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_GAGE_894", 

PSDL_EXCEPnON'IMAGE(EXCEPTION_ID)); 
end  if; 
end  MOGAS_GAGE_894_DRIVER; 


procedure  OTHER_ISS_DB_TABLE_504_DRIVER  is 
LV_EQ_ISS_NAME  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_UNIT  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_ID :  TEXT_STRING_PKG.TEXT_STRING; 
LV_EQ_ISS_QTY :  INTEGER; 
LV_EQ_ISS_FUEL_TYPE :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
-  Data  trigger  checks. 

if  not  (DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504.NEW_DATA  or  else 
DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.NEW_DATA  or  else 
DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.NEW_DATA  or  else 
DS_EQJSS_UNIT_OTHER_ISS_DB_TABLE_504.NEW_DATA  or  else 

DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.NEW_DATA)then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_NAME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFreR_UNDERFLOW(,,EQ_ISS_NAME_OTHER_ISS_DB_TABLE_504", 
"OTHER_ISS_DB_TABLE_504"); 
end; 
begin 

DS_EQ_1SS_UNIT_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_UN1T); 
exception 
when  BUFFER  UNDERFLOWS 
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DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_UN1T_OTHER_ISS_DB_TABLE_504", 
"OTHER_ISS_DB_TABLE_504"); 
end; 
begin 

DS_EQ_ISS_ID_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_ID); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_ID_OTHER_ISS_DB_TABLE_504", 
"OTHER_ISS_DB_TABLE_504"); 
end; 
begin 

DS_EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_OTHER_ISS_DB_TABLE_504", 
"OTHER_ISS_DB_TABLE_504"); 
end; 
begin 

DS_EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504.BUFFER.READ(LV_EQ_ISS_FUEL_TYPE 

); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_OTHER_ISS_DB_TABLE_504", 
"OTHERJSS.DBjrABLE.SCM"); 
end; 

—  Execution  trigger  condition  check. 
if  True  then 
begin 

OTHER_ISS_DB_TABLE_504( 
EQ_ISS_NAME  =>  LV_EQ_ISS_NAME, 
EQ_ISS_UNIT  =>  LV_EQ_ISS_UNTT, 
EQJSS  JD  =>  LV_EQ_ISS_ID, 
EQ_ISS_QTY  =>  LV_EQJSS_QTY, 
EQ_ISS_FUEL_TYPE  =>  LV_EQ_ISS_FUEL_TYPE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTHER_ISS_DB_TABLE_504"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

--Unconditional  output  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTIONHAS.OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTHER_ISS_DB_TABLE_504", 
PSDL_EXCEPTION"IMAGE(EXCEPTION_ID)); 
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end  if; 
end  OTHER_ISS_DB_TABLE_504_DRIVER; 


procedure  OTHER_RCPT_DB_TABLE_501_DRIVER  is 
LV_OTH_RCPT_SOURCE_UNIT  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_SOURCE_ID  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_OTH_RCPT_QTY  :  INTEGER; 
LV_OTH_RCPT_FUEL_TYPE :  INTEGER; 

EXCEPnON_HAS_OCCTJRRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
—  Data  trigger  checks. 

if  not  (DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501.NEW_DATA  or  else 
DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501.NEW_DATA  or  else 
DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501.NEW_DATA  or  else 
DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_50 1  .NEW_DATA)  then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_50 1  .BUFFER.READ(LV_OTH_RCPT 
_SOURCE_UNTT); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_SOURCE_UNIT_OTHER_RCPT_DB_TABLE_50 
1",  "OTHER_RCPT_DB_TABLE_501"); 

end; 

begin 

DS_OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501.BUFFER.READ(LV_OTH_RCPT_S 
OURCE_ID); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_SOURCE_ID_OTHER_RCPT_DB_TABLE_501", 
"OTHER_RCPT_DB_TABLE_50 1 "); 

end; 

begin 

DS_OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_50 1  .BUFFER.RE  AD(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_OTHER_RCPT_DB_TABLE_501", 
"OTHER_RCPT_DB_TABLE_50 1 "); 
end; 
begin 

DS_OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_50 1  .BUFFER.  RE  AD(LV_OTH_RCPT_F 
UEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 
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DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_FUEL_TYPE_OTHER_RCPT_DB_TABLE_501' 
MOTHER_RCPT_DB_TABLE_501"); 
end; 

-  Execution  trigger  condition  check, 
if  True  then 
begin 

OTHER_RCPT_DB_TABLE_501( 
OTH_RCPT_SOURCE_UNIT  =>  LV_OTH_RCPT_SOURCE_UNIT, 
OTH_RCPT_SOURCE_ID  =>  LV_OTH_RCPT_SOURCE_ID, 
OTH_RCPT_QTY  =>  LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE  =>  LV_OTH_RCPT_FUEL_TYPE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTHER_RCPT_DB_TABLE_50 1 "); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

-Unconditional  output  translations. 

~  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTHER_RCPT_DB_TABLE_501", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  OTHER_RCPT_DB_TABLE_501_DRIVER; 


procedure  BULK_ISS_DB_TABLE_498_DRIVER  is 
LV_BTJLK_RCV_NAME  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCV_UNTT  :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_ISS_DOC_NUM :  TEXT_STRING_PKG.TEXT_STRING; 
LVBTJLK_ISS_QTY  :  INTEGER; 
LV_BULK_ISS_FUEL_TYPE :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

Data  trigger  checks, 
if  not  (DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.NEW_DATA  or  else 
DS_BULK_ISS_QTY_BTJLK_ISS_DB_TABLE_498.NEW_DATA  or  else 
DS_BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498.NEW_DATA  or  else 
DS_BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498.NEW_DATA  or  else 
DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498.NEW_DATA)then 
return; 
end  if; 
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-  Data  stream  reads, 
begin 

DS_BULK_RCV_NAME_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_RCV_NAME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCV_NAME_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 

DS3ULK3CV_UNIT3ULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_RCV_UNTT); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCV_UNIT_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 

DS_BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_DOC_NU 
M); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_DOC_NUM_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 

DS_BULK_ISS_QTY_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_QTY_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 
begin 

DS_BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498.BUFFER.READ(LV_BULK_ISS_FUEL_T 
YPE); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW(,,BULK_ISS_FUEL_TYPE_BULK_ISS_DB_TABLE_498", 
"BULK_ISS_DB_TABLE_498"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

BULK_ISS_DB_TABLE_498( 
BULK_RCV_NAME  =>  LV_BULK_RCV_NAME, 
BULK_RCV_UNIT  =>  LV_BULK_RCV_UNIT, 
BULK_ISS_DOC_NUM  =>  LV_BULK_ISS_DOC_NUM, 
BULK_ISS_QTY  =>  LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE  =>  LV_BULK_ISS_FUEL_TYPE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_ISS_DB_TABLE_498"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
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EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 
~  Other  constraint  option  translations. 
-Unconditional  output  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"BULK_ISS_DB_TABLE_498\ 
PSDL_EXCEFnON"IMAGE(EXCEPTION_ID)); 
end  if; 
end  BULK_ISS_DB_TABLE_498_DRIVER; 


procedure  BULK_RCPT_DB_TABLE_495_DRIVER  is 
LV_BULK_RCPT_DOC_NUMBER :  TEXT_STRING_PKG.TEXT_STRING; 
LV_BULK_RCPT_QTY  :  INTEGER; 
LV_BULK_RCPT_FUEL_TYPE  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495.NEW_DATA  or  else 
DS_BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495.NEW_DATA  or  else 
DS_BULK_RCPT_DOC_NUMBER_BULK_RCPT_DB_TABLE_495.NEW_DATA)then 
return; 

end  if; 

-  Data  stream  reads. 

begin 

DS3ULK_RCPT_DOC_NIJMBER3ULK_RCPT_DB_TABLE_495.BTJFFER.READ(LV_BULK_RCP 
T_DOC_NUMBER); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFT^R_UNDERFLOW("BULK_RCPT_DOC_NIJMBER_BULK_RCPT_DB_TABLE_4 
95",  "BULK_RCPT_DB_TABLE_495"); 

end; 

begin 

DS3ULK_RCPT_QTY3ULK_RCPT_DB_TABLE_495.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_QTY_BULK_RCPT_DB_TABLE_495", 
"BULK_RCPT_DB_TABLE_495"); 
end; 
begin 
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DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABLE_495.BUFFER.READ(LV_BULK_RCPT_ 
FUEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_DB_TABL£_495", 
"BULK_RCPT_DB_TABLE_495"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

BULK_RCPT_DB_TABLE_495( 
BULK_RCPT_DOC_NUMBER  =>  LV_BULK_RCPT_DOC_NUMBER, 
BULK_RCPT_QTY  =>  LV_BULK_RCPT_QTY, 
BULK_RCPT_FUEL_TYPE  =>  LV_BULK_RCPT_FUEL_TYPE); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("BULK_RCPT_DB_TABLE_495"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

—Unconditional  output  translations. 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"BULK_RCPT_DB_TABLE_495", 
PSDL_EXCEPnONlMAGE(EXCEPTION_ID)); 
end  if; 
end  BULK_RCPT_DB_TABLE_495_DRIVER; 

procedure  DAILY_REPORTER_410_DRIVER  is 
LV_DATLY_JET_ISS_TOTAL :  INTEGER; 
LV_DATLY_MG_ISS_TOTAL :  INTEGER; 
LV_DATLY_DF_ISS_TOTAL :  INTEGER; 
LV_DAILY_JET_RCPT_TOTAL :  INTEGER; 
LV_DATLY_MG_RCPT_TOTAL :  INTEGER; 
LV_DATLY_DF_RCPT_TOTAL :  INTEGER; 
LV_MG_ISS_TOTAL :  INTEGER; 
LV_DF_ISS_TOTAL :  INTEGER; 
LV_JET_ISS_TOTAL :  INTEGER; 
LV_JET_RCPT_TOTAL :  INTEGER; 
LV_MG_RCPT_TOTAL :  INTEGER; 
LV_DF_RCPT_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
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EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

--  Data  stream  reads, 
begin 

DS_MG_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_MG_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_ISS_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_4 10"); 
end; 
begin 

DS_DF_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_ISS_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_4 10"); 
end; 
begin 

DS_JET_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_TOTAL_DAILY_REPORTER_410", 
"DATLY_REPORTER_4 10"); 
end; 
begin 

DS_DF_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_4 10"); 
end; 
begin 
DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_MG_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_4 10"); 
end; 
begin 
DS_JET_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.READ(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_RCPT_TOTAL_DAILY_REPORTER_410", 
"DAILY_REPORTER_4 10"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

DATLY_REPORTER_4 10( 
DATLY_JET_ISS_TOTAL  =>  LV_DATLY_JET_ISS_TOTAL, 
DAILY_MG_ISS_TOTAL  =>  LV_DAILY_MG_ISS_TOTAL, 
DATLY_DF_ISS_TOTAL  =>  LV_DATLY_DF_ISS_TOTAL, 
DAILY_JET_RCPT_TOTAL  =>  LV_DATLY_JET_RCPT_TOTAL, 
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DAILY_MG_RCPT_TOTAL  =>  LV_DATLY_MG_RCPT_TOTAL, 
DAILY_DF_RCPT_TOTAL  =>  LV_DAILY_DF_RCPT_TOTAL, 
MG_ISS_TOTAL  =>  LV_MG_ISS_TOTAL, 
DF_ISS_TOTAL  =>  LV_DF_ISS_TOTAL, 
JET_ISS_TOTAL  =>  LV_JET_ISS_TOTAL, 
JET  JtCPTTOTAL  =>  LV_JET_RCPT_TOTAL, 
MG_RCPT_TOTAL  =>  LV_MG_RCPT_TOTAL, 
DF_RCPT_TOTAL  =>  LV_DF_RCPT_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON(,,DAILY_REPORTER_410,,); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_DAILY_JET_IS 
S_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DATLY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"DATLY_REPORTER_4 10"); 

end; 

begin 

DS_DATLY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_JETJSS_ 
TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_REPORTER_410"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DATLY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_DAILY_MG_IS 
S.TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595". 
"DATLY_REPORTER_4 10"); 

end; 

begin 
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DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_MG_ISS_ 
TOTAL); 
exception 
when  BUFFERJDVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_REPORTER_410"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DATLY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.WRITE(LV_DAILY_DF_ISS_ 
TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592", 
"DATLY_REPORTER_4 10"); 

end; 

begin 

DS_DATLY_DF_ISS_TOTAL_DArLY_ISS_DB_TABLE_743.BUFFER.WRITE(LV_DAILY_DF_ISS_T 
OTAL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DATLY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DATLY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DAILY_JET3Cr^_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_DAILY_J 
ET_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DATLY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_58 
9",  "DATLY_REPORTER_410"); 

end; 

begin 

DS_DArLY_JET_RCPT_TOTAL_DArLY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_JET 
_RCPT_TOTAL); 
exception 
when  BUFFERJDVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_JET_RCPT_TOTAL_DArLY_RCPT_DB_TABLE_740", 
"DATLY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 
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DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.WRITE(LV_DAILY_M 
G_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAE.Y_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_58 
6",  "DMLY_REPORTER_410"); 

end; 

begin 

DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_MG 
_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740", 
"DAILY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_DAILY_DF 
_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DArLY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583" 
,  "DATLY_REPORTER_410"); 

end; 

begin 

DS_DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.WRITE(LV_DAILY_DF_ 
RCPTTOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740", 
"DATLY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_349", 
'•DArLY_REPORTER_4 10"); 
end; 
begin 

DS_MG_ISS_TOTAL_DAILY_REPORTER_4 1 0.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_DATLY_REPORTER_410", 
"DAILY_REPORTER_410"); 
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end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_352", 
"DATLY_REPORTER_4 10"); 
end; 
begin 

DS_DF_ISS_TOTAL_DATLY_REPORTER_410.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DATLY_REPORTER_410", 
"D  AILY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_346", 
"DAILY_REPORTER_4 10"); 
end; 
begin 

DS_JET_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_DArLY_REPORTER_410", 
"DAILY_REPORTER_410,,); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280.BUFFER.WRTTE(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280", 
"DATLY_REPORTER_4 10"); 
end; 
begin 

DS_JET_RCPT_TOTAL_DArLY_REPORTER_410.BUFFER.WRITE(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_DAILY_REPORTER_4 10" , 
"DATLY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 
exception 
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when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277", 
"DAILY_REPORTER_4 10"); 
end; 
begin 

DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,MG_RCPT_TOTAL_DAILY_REPORTER_410,^ 
"D  AILY_REPORTER_4 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,'DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274", 
"DATLY_REPORTER_4 10"); 
end; 
begin 

DS_DF3CPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DATLY_REPORTER_4 10" , 
"DATLY_REPORTER_4 10"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DATLY_REPORTER_4 10", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  DATLY_REPORTER_410_DRIVER; 


procedure  DF_ISS_TOTALIZER_352_DRIVER  is 
LV_I_DF_QTY  :  INTEGER; 
LV_DF_ISS_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
Data  trigger  checks. 

if  not  (DS_I_DF_QTY_DF_ISS_TOTALIZER_352.NEW_DATA)  then 
return; 

end  if; 

Data  stream  reads, 
begin 

DS_I_DF_QTY_DF_ISS_TOTALIZER_352.BUFFER.READ(LV_I_DF_QTY); 
exception 

when  BUFFER_UNDERFLOW  => 
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DS_DEBUG.BUFFER_UNDERFLOW("I_DF_QTY_DF_ISS_TOTALIZER_352", 
"DF_ISS_TOTALIZER_352"); 

end; 
begin 

DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.READ(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_352", 
"DF_ISS_TOTALIZER_352"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

DF_ISS_TOTALIZER_352( 
I_DF_QTY  =>  LV_I_DF_QTY, 
DF_ISS_TOTAL  =>  LV_DF_ISS_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("DF_ISS_TOTALIZER_352'"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 
DS_DF_ISS_TOTAL_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DF_ISS_TOTALIZER_352", 
"DF_ISS_TOTALIZER_352"); 
end; 
begin 
DS_DF_ISS_TOTAL_DATLY_REPORTER_410.BUFFER.WRITE(LV_DF_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_ISS_TOTAL_DArLY_REPORTER_410", 
"DF_ISS_TOTALIZER_352"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DF_ISS_TOTALIZER_352", 
PSDL.EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  DF_ISS_TOTALIZER_352_DRIVER; 
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procedure  MG_ISS_TOTALIZER_349_DRIVER  is 
LV_I_MG_QTY :  INTEGER; 
LV_MG_ISS_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_I_MG_QTY_MG_ISS_TOTALIZER_349.NEW_DATA)  then 
return; 

end  if; 

i 

-  Data  stream  reads. 

begin 

DS_I_MG_QTY_MG_ISS_TOTALIZER_349.BUFFER.READ(LV_I_MG_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("I_MG_QTY_MGJSS_TOTALIZER_349", 
"MG_ISS_TOTALIZER_349"); 
end; 
begin 

DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.READ(LV_MG_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_349^ 
"MG_ISS_TOTALIZER_349"); 
end; 

-  Execution  nigger  condition  check. 

if  True  then 
begin 

MG_ISS_TOTALIZER_349( 
I_MG_QTY  =>  LV_I_MG_QTY, 
MG_ISS_TOTAL  =>  LV_MG_ISS_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MG_ISS_TOTALIZER_349"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_ISS_TOTAL_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_MG_ISS_TOTALIZER_349", 
"MG_ISS_TOTALIZER_349"); 
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end; 
begin 

DS_MG_ISS_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_ISS_TOTAL); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MG_ISS_TOTAL_DAILY_REPORTER_4 10" , 
'MG_ISS_TOTALIZER_349"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_ISS_TOTALIZER_349", 
PSDL_EXCEPTI01SriMAGE(EXCEPTION_ID)); 
end  if; 
end  MG_ISS_TOTALIZER_349_DRIVER; 


procedure  JET_ISS_TOTALIZER_346_DRIVER  is 
LV_I_JET_QTY  :  INTEGER; 
LV_JET_ISS_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
~  Data  trigger  checks. 

if  not  (DS_I_JET_QTY_JET_ISS_TOTALIZER_346.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads, 
begin 

DS_I_JET_QTY_JET_ISS_TOTALIZER_346.BUFFER.READ(LV_I_JET_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("I_JET_QTY_JET_ISS_TOTALIZER_346", 
"JET_ISS_TOTALIZER_346"); 
end; 
begin 

DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.READ(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_346", 
"JET_ISS_TOTALIZER_346"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_ISS_TOTALIZER_346( 
I_JET_QTY  =>  LV_I_JET_QTY, 
JET_ISS_TOTAL  =>  LV_JET_ISS_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("JET_ISS_TOTALIZER_346"); 
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EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 

-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_ISS_TOTAL_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_JET_ISS_TOTALIZER_346", 
"JET_ISS_TOTALIZER_346"); 
end; 
begin 

DS_JET_ISS_TOTAL_DATLY_REPORTER_410.BUFFER.WRITE(LV_JET_ISS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_ISS_TOTAL_DAILY_REPORTER_410", 
"JET_ISS_TOTALIZER_346"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"JET_ISS_TOTALIZER_346", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_ISS_TOTALIZER_346_DRIVER; 


procedure  JET_RCPT_TOTALIZER_280_DRIVER  is 
LV_R_JET_QTY  :  INTEGER; 
LV_JET_RCPT_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.BUFFER.READ(LV_R_JET_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("R_JET_QTY_JET_RCPT_TOTALIZER_280", 
"JET_RCPT_TOTALIZER_280"); 
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end; 
begin 

DS_JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280.BUFFER.READ(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280", 
"JET_RCPT_TOTALIZER_280"); 
end; 

--  Execution  trigger  condition  check. 
if  True  then 
begin 

JET_RCPT_TOTALIZER_280( 
R_JET_QTY  =>  LV_R_JET_QTY, 
JET_RCPT_TOTAL  =>  LV_JET_RCPT_TOTAL); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("JET_RCPT_TOTALIZER_280"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_RCr^_TOTAL_JET_RCr^_TOTALIZER_280.BUFFERWRTrE(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("JET_RCPT_TOTAL_JET_RCPT_TOTALIZER_280", 
"JET_RCPT_TOTALIZER_280"); 
end; 
begin 

DS_JET^Cr^_TOTAL_DAILY_REPORTER_410.BUFFERWRiTE(LV_JET_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("  JET_RCPT_TOTAL_DAILY_REPORTER_4 10" , 
"JET_RCPT_TOTALIZER_280"); 
end; 
end  if; 

~  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_RCPT_TOTALIZER_280", 
PSDLJBXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  JET_RCPT_TOTALIZER_280_DRIVER; 
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procedure  MG_RCPT_TOTALIZER_277_DRIVER  is 
LV_R_MG_QTY  :  INTEGER; 
LV_MG_RCPT_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_R_MG_QTY_MG_RCPT_TOTALIZER_277.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_R_MG_QTY_MG_RCPT_TOTALIZER_277.BUFFER.READ(LV_R_MG_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("R_MG_QTY_MG_RCPT_TOTALIZER_277", 
,,MG_RCPT_TOTALIZER_277"); 
end; 
begin 

DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.READ(LV_MG_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(nMG_RCPT_TOTAL_MG_RCPT_TOTALI2ER_277", 
"MG_RCPT_TOTALIZER_277"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

MG_RCPT_TOTALIZER_277( 
R_MG_QTY  =>  LV_R_MG_QTY, 
MG_RCPT_TOTAL  =>  LV_MG_RCPT_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MG_RCPT_TOTALIZER_277"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 
exception 
when  BUFFERJDVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("MG_RCPT_TOTAL_MG_RCPT_TOTALIZER_277", 
"MG_RCPT_TOTALIZER_277"); 
end; 
begin 

DS_MG_RCPT_TOTAL_DAILY_REPORTER_410.BUFFER.WRITE(LV_MG_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DSJDEBUG.BUFFERJ3VERFLOW(',MGJlCPTjrOTAL_DAlLYJ*EPORTER_410,\ 
"MG_RCPT_TOTALIZER_277"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_RCPT_TOTALIZER_277", 
PSDL_EXCEPTIONiMAGE(EXCEPTION_ID)); 
end  if; 
end  MG_RCPT_TOTALIZER_277_DRIVER; 


procedure  DF_RCPT_TOTALIZER_274_DRIVER  is 
LV_R_DF_QTY  :  INTEGER; 
LV_DF_RCPT_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.BUFFER.READ(LV_R_DF_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(,,R_DF_QTY_DF_RCPT_TOTALIZER_274", 
"DF_RCPT_TOTALIZER_274,,); 
end; 
begin 

DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.READ(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(,,DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274", 
"DF_RCPT_TOTALIZER_274"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 
DF_RCPT_TOTALIZER_274( 

R_DF_QTY  =>  LV_R_DF_QTY, 

DF_RCPT_TOTAL  =>  LV_DF_RCPT_TOTAL); 
exception 
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when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("DF_RCPT_TOTALIZER_274"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DF_RCPT_TOTALIZER_274", 
,,DF_RCPT_TOTALIZER_274"); 
end; 
begin 

DS_DF_RCr^_TOTAL_DAILY_REPORTER_410.BUFFER.WRrTE(LV_DF_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_RCPT_TOTAL_DAILY_REPORTER_410", 
"DF_RCPT_TOTALIZER_274"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_(X:CURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DF_RCPT_TOTALIZER_274", 
PSDL.EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  DF_RCPT_TOTALIZER_274_DRIVER; 


procedure  BULK_RCPT_PROCESSOR_198_DRIVER  is 
LV_BULK_RCPT_FUEL_TYPE :  INTEGER; 
LV_BULK_RCPT_QTY  :  INTEGER; 
LV_BULK_RCPT_ENABLE :  BOOLEAN; 
LV_OTH_RCPT_ENABLE  :  BOOLEAN; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

Data  trigger  checks, 
if  not  (DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198.NEW_DATA  and  then 
DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_  1 98.NEW_D ATA)  then 
return; 
end  if; 

Data  stream  reads. 
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begin 

DS_BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198.BUFFER.READ(LV_BULK_RCPT 
_FUEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_FUEL_TYPE_BULK_RCPT_PROCESSOR_198 
",  "BULK_RCPT_PROCESSOR_198"); 

end; 

begin 

DS_BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_  1 98.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_QTY_BULK_RCPT_PROCESSOR_198", 
"BULK_RCPT_PROCESSOR_198"); 
end; 
begin 

DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.READ(LV_OTH_RCPT_ENAB 
LE); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198", 
"BULK_RCPT_PROCESSOR_198"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

BULK_RCPT_PROCESSOR_198( 
BULK_RCPT_FUEL_TYPE  =>  LV_BULK_RCPT_FUEL_TYPE, 
BULK_RCPT_QTY  =>  LV_BULK_RCPT_QTY, 
BULK_RCPT_ENABLE  =>  LV_BULK_RCPT_ENABLE, 
OTH_RCPT_ENABLE  =>  LV_OTH_RCPT_ENABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_RCPT_PROCESSOR_198"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207.BUFFER.WRITE(LV_BULK_RCPT_EN 
ABLE); 
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exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207", 
"BULK_RCPT_PROCESSOR_198"); 

end; 

begin 

DS3ULK_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_BULK_RCPT_ENABLE 

); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_RCPT_PROCESSOR_210", 
"BULK_RCPT_PROCESSOR_198"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.WRITE(LV_OTH_RCPT_ENA 
BLE); 

exception 
when  BUFFER_OVERFLOW  => 

DS.DEBUG.BUFFER.OVERFLOWC'OTH.RCPT.ENABLE.BULK.RCPT.PROCESSOR.lQg", 
"BULK.RCPTLPROCESSOR.lQg"); 

end; 

begin 

DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,OTH_RCPT_ENABLE_RCPT_PROCESSOR_210", 
"BULK_RCPT_PROCESSOR_198"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"BULK_RCPT_PROCESSOR_198,\ 
PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if; 
end  BULK_RCPT_PROCESSOR_198_DRIVER; 


procedure  OTH_RCPT_PROCESSOR_207_DRIVER  is 
LV_OTH_RCPT_QTY  :  INTEGER; 
LV_OTH_RCPT_FUEL_TYPE  :  INTEGER; 
LV_OTH_RCPT_ENABLE  :  BOOLEAN; 
LV_BULK_RCPT_ENABLE  :  BOOLEAN; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
Data  trigger  checks. 
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if  not  (DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.NEW_DATA  and  then 

DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207.NEW_DATA)then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_OTH_RCPT_PROCESSOR_207", 
"OTH_RCPT_PROCESSOR_207"); 
end; 
begin 

DS_OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_OTH_RCPT_FU 
ELJTYPE); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_FUEL_TYPE_OTH_RCPT_PROCESSOR_207,,, 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 

DS_BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207.BUFFER.READ(LV_BULK_RCPT_ENA 
BLE); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207", 
"OTH_RCPT_PROCESSOR_207"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

OTH_RCPT_PROCESSOR_207( 
OTH_RCPT_QTY  =>  LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE  =>  LV_OTH_RCPT_FUEL_TYPE, 
OTH_RCPT_ENABLE  =>  LV_OTH_RCPT_ENABLE, 
BULK_RCPT_ENABLE  =>  LV_BULK_RCPT_ENABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTH_RCPT_PROCESSOR_207"); 
EXCEPTION_HAS_OCCURRED  ;=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 
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if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198.BUFFER.WRTTE(LV_OTH_RCPT_ENA 
BLE); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("OTH_RCPT_ENABLE_BULK_RCPT_PROCESSOR_198", 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 

DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.WRITE(LV_OTH_RCPT_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS.DEBUG.BUFFER.OVERFLOWC^TH.RCPT.ENABLE.RCPT.PROCESSOR.llO", 
"OTH_RCPT_PROCESSOR_207"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS3ULK_RCPT3NABLE_OTH_RCPT_PROCESSOR_2073UFTER.WRrTE(LV_BULK_RCPT_EN 
ABLE); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("BULK_RCPT_ENABLE_OTH_RCPT_PROCESSOR_207", 
"OTH_RCPT_PROCESSOR_207"); 

end; 

begin 

DS3ULK_RCPT_ENABLE_RCPT_PROCESSOR_2103UFFER.WRITE(LV_BULK_RCPT_ENABLE 

); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(*,BULK_RCPT_ENABLE_RCPT_PROCESSOR_210", 
"OTH_RCPT_PROCESSOR_207"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTH_RCPT_PROCESSOR_207", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  OTH_RCPT_PROCESSOR_207_DRIVER; 


procedure  RCPT_PROCESSOR_210_DRIVER  is 
LV_OTH_RCPT_QTY  :  INTEGER; 
LV_OTH_RCPT_FUEL_TYPE :  INTEGER; 
LV_BULK_RCPT_QTY  :  INTEGER; 
LV_BULK_RCPT_FUEL_TYPE  :  INTEGER; 
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LV_OTH_RCPT_ENABLE  :  BOOLEAN; 
LV_BULK_RCPT_ENABLE  :  BOOLEAN; 
LV_R_JET_QTY  :  INTEGER; 
LV_R_MG_QTY  :  INTEGER; 
LV_R_DF_QTY  :  INTEGER; 
LV_JET_RCPT_QTY :  INTEGER; 
LV_MOGAS_RCPT_QTY  :  INTEGER; 
LV_DIESEL_RCPT_QTY  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.NEW_DATA  or  else 

DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_2 10.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads, 
begin 

DS_OTH_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_QTY_RCPT_PROCESSOR_2 10" , 
"RCPT_PROCESSOR_210"); 
end; 
begin 

DS_OTH3CPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_FUEL_TY 
PE); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210", 
"RCPT_PROCESSOR_210"); 
end; 
begin 

DS_BULK_RCPT_QTY_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_QTY_RCPT_PROCESSOR_210", 
"RCPT_PROCESSOR_210"); 
end; 
begin 

DS_BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_FUEL_ 
TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(,,BULK_RCPT_FUEL_TYPE_RCPT_PROCESSOR_210,,, 
,,RCPT_PROCESSOR_210"); 
end; 
begin 

DS_OTH_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.READ(LV_OTH_RCPT_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
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DS_DEBUG.BUFFER_UNDERFLOW("OTH_RCPT_ENABLE_RCPT_PROCESSOR_210", 
,,RCPT_PR0CESS0R_2 10"); 
end; 
begin 

DS_BULK_RCPT_ENABLE_RCPT_PROCESSOR_210.BUFFER.READ(LV_BULK_RCPT_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_RCPT_ENABLE_RCPT_PROCESSOR_210", 
"RCPT_PROCESSOR_210"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

RCPT_PROCESSOR_210( 
OTH_RCPT_QTY  =>  LV_OTH_RCPT_QTY, 
OTH_RCPT_FUEL_TYPE  =>  LV_OTH_RCPT_FUEL_TYPE, 
BULK_RCPT_QTY  =>  LV_BULK_RCPT_QTY, 
BULK_RCPT_FUEL_TYPE  =>  LV_BULK_RCPT_FUEL_TYPE, 
OTH_RCPT_ENABLE  =>  LV_OTH_RCPT_ENABLE, 
BULK_RCPT_ENABLE  =>  LV_BULK_RCPT_ENABLE, 
R_JET_QTY  =>  LV_R_JET_QTY, 
R_MG_QTY  =>  LV_R_MG_QTY, 
R_DF_QTY  =>  LV_R_DF_QTY, 
JET_RCPT_QTY  =>  LV_JET_RCPT_QTY, 
MOGAS_RCPT_QTY  =>  LV_MOGAS_RCPT_QTY, 
DffiSEL_RCPT_QTY  =>  LV_DffiSEL_RCPT_QTY); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("RCPT_PROCESSOR_210"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_R_JET_QTY_JET_RCPT_TOTALIZER_280.BUFFER.WRITE(LV_R_JET_QTY); 
exception 
when  BUFFER.OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,R_JET_QTY_JET_RCPT_TOTALrZER_280", 
*RCPT_PROCESSOR_210"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_R_MG_QTY_MG_RCPT_TOTALrZER_277.BUFFER.WRITE(LV_R_MG_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
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DS_DEBUG.BUFFER_OVERFLOW("R_MG_QTY_MG_RCPT_TOTALIZER_277", 
"RCPT_PROCESSOR_210"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_R_DF_QTY_DF_RCPT_TOTALIZER_274.BUFFER.WRITE(LV_R_DF_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("R_DF_QTY_DF_RCPT_TOTALIZER_274", 
"RCPT_PROCESSOR_2 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_RCPT_QTY_JET_ADDITION_9 1 1  .BUFFER.  WRITE(LV_JET_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("  JET_RCPT_QTY_JET_ADDITION_9 11", 
"RCPT_PROCESSOR_2 10"); 
end; 
end  if; 

if  notEXCEPTION_HAS_OCCURRED  then 
begin 

DS_MOGAS_RCPT_QTY_MOGAS_ADDITION_888.BUFFER.WRITE(LV_MOGAS_RCPT_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_RCPT_QTY_MOGAS_ADDITION_888", 
"RCPT_PROCESSOR_210"); 
end; 
end  if; 

if  not  EXCEPTIONHAS_OCCURRED  then 
begin 

DS_DrESEL_RCPT_QTY_DrESEL_ADDITION_836.BUFFER.WRITE(LV_DrESEL_RCPT_QTY); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DrESEL_RCPT_QTY_DrESEL_ADDITION_836", 
"RCPT_PROCESSOR_210"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPnON( 
"RCPT_PROCESSOR_2 10", 
PSDL_EXCEPTIO]SriMAGE(EXCEPTION_ID)); 
end  if; 
end  RCPT_PROCESSOR_210_DRIVER; 


procedure  OTH_ISS_PROCESSOR_307_DRIVER  is 
LV_EQJSS_QTY :  INTEGER; 
LV_EQ_ISS_FUELJI  YPE :  INTEGER; 
LV_OTH_ISS_ENABLE  :  BOOLEAN; 
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LV_BULK_ISS_ENABLE  :  BOOLEAN; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.NEW_DATA  and  then 
DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.NEW_DATA)then 
return; 
end  if; 

—  Data  stream  reads. 

begin 
DS_EQ_ISS_QTY_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_OTH_ISS_PROCESSOR_307", 
"OTH_ISS_PROCESSOR_307,,); 
end; 
begin 

DS_EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_EQ_ISS_FUEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_OTH_ISS_PROCESSOR_307M, 
,,OTH_ISS_PROCESSOR_307"); 
end; 
begin 

DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307.BUFFER.READ(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307", 
•"OTH_ISS_PROCESSOR_307"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

OTH_ISS_PROCESSOR_307( 
EQ_ISS_QTY  =>  LV_EQ_ISS_QTY, 
EQ_ISS_FUEL_TYPE  =>  LV_EQ_ISS_FUEL_TYPE, 
OTH_ISS_ENABLE  =>  LV_OTH_ISS_ENABLE, 
BULK_ISS_ENABLE  =>  LV_BULK_ISS_ENABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("OTH_ISS_PROCESSOR_307"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 
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—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310", 
"OTH_ISS_PROCESSOR_307"); 
end; 
begin 

DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_323", 
"OTH_ISS_PROCESSOR_307"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307", 
"OTH_ISS_PROCESSOR_307"); 
end; 
begin 

DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
"OTH_ISS_PROCESSOR_307"); 
end; 
end  if; 

~  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"OTH_ISS_PROCESSOR_307", 
PSDL.EXCEPTION'IMAGECEXCEPTION.ID)); 
end  if; 
end  OTH_ISS_PROCESSOR_307_DRIVER; 


procedure  BULK_ISS_PROCESSOR_310_DRIVER  is 
LV_BULK_ISS_QTY  :  INTEGER; 
LV_BULK_ISS_FUEL_TYPE :  INTEGER; 
LV_BULK_ISS_ENABLE :  BOOLEAN; 
LV_OTH_ISS_ENABLE  :  BOOLEAN; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
Data  trigger  checks. 
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if  not  (DS_BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.NEW_DATA  and  then 
DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_3 10.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_BULK_ISS_QTY_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_QTY_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 
begin 

DS3ULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_BULK_ISS_FUEL_ 
TYPE); 
exception 
when  BUFFER.UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_FUEL_TYPE_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_3 10"); 

end; 

begin 

DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310.BUFFER.READ(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

BULK_ISS_PROCESSOR_3 10( 
BULK_ISS_QTY  =>  LV_BULK_ISS_QTY, 
BULK_ISS_FUEL_TYPE  =>  LV_BULK_ISS_FUEL_TYPE, 
BULK_ISS_ENABLE  =>  LV_BULK_ISS_ENABLE, 
OTH_ISS_ENABLE  =>  LV_OTH_ISS_ENABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("BULK_ISS_PROCESSOR_310"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

172 


DS_BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_OTH_ISS_PROCESSOR_307", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 
begin 

DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_BULK_ISS_PROCESSOR_310", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 
begin 

DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.WRITE(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_323", 
"BULK_ISS_PROCESSOR_3 10"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXOEPTION( 
"BULK_ISS_PROCESSOR_3 10", 
PSDL.EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  BULK_ISS_PROCESSOR_3 10_DRIVER; 


procedure  ISS_PROCESSOR_323_DRIVER  is 
LV_BULK_ISS_ENABLE :  BOOLEAN; 
LV_OTH_ISS_ENABLE :  BOOLEAN; 
LV_EQ_ISS_FUEL_TYPE :  INTEGER; 
LV_EQ_ISS_QTY :  INTEGER; 
LV_BULK_ISS_FUEL_TYPE :  INTEGER; 
LV_BULK_ISS_QTY  :  INTEGER; 
LV_I_DF_QTY :  INTEGER; 
LV_I_MG_QTY :  INTEGER; 
LV_I_JET_QTY :  INTEGER; 
LV_DIESEL_ISS_QTY :  INTEGER; 
LV_MOGAS_ISS_QTY  :  INTEGER; 
LV_JET_ISS_QTY  :  INTEGER; 
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EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL.EXCEPTION; 
begin 
—  Data  trigger  checks. 

if  not  (DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.NEW_DATA  or  else 

DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.NEW_DATA)then 
return; 
end  if; 

~  Data  stream  reads, 
begin 

DS_BULK_ISS_ENABLE_ISS_PROCESSOR_323.BUFFERREAD(LV_BULK_ISS_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_ENABLE_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 
begin 

DS_OTH_ISS_ENABLE_ISS_PROCESSOR_323.BUFFER.READ(LV_OTH_ISS_ENABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BTJFFER_UNDERFLOW("OTH_ISS_ENABLE_ISS_PROCESSOR_323,,, 
"ISS_PROCESSOR_323"); 
end; 
begin 

DS_EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.READ(LV_EQ_ISS_FUEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 
begin 

DS_EQ_ISS_QTY_ISS_PROCESSOR_323.BUFFER.READ(LV_EQ_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("EQ_ISS_QTY_ISS_PROCESSOR_323", 
,,ISS_PROCESSOR_323"); 
end; 
begin 

DS_BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323.BUFFER.READ(LV_BULK_ISS_FUEL_TYPE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULK_ISS_FUEL_TYPE_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 
begin 

DS_BULK_ISS_QTY_ISS_PROCESSOR_323.BUFFER.READ(LV_BULK_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("BULKJSS_QTY_ISS_PROCESSOR_323", 
"ISS_PROCESSOR_323"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
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begin 
ISS_PROCESSOR_323( 

BULK_ISS_ENABLE  =>  LV_BULK_ISS_ENABLE, 

OTH_ISS_ENABLE  =>  LV_OTH_ISS_ENABLE, 

EQ_ISS_FUEL_TYPE  =>  LV_EQ_ISS_FUEL_TYPE, 

EQ_ISS_QTY  =>  LV_EQ_ISS_QTY, 

BULK_ISS_FUEL_TYPE  =>  LV_BULK_ISS_FUEL_TYPE, 

BULK_ISS_QTY  =>  LV_BULK_ISS_QTY, 

I_DF_QTY  =>  LV_I_DF_QTY, 

I_MG_QTY  =>  LV_I_MG_QTY, 

I_JET_QTY  =>  LV_I_JET_QTY, 

DffiSEL_ISS_QTY  =>  LV_DffiSEL_ISS_QTY, 

MOGAS_ISS_QTY  =>  LV_MOGAS_ISS_QTY, 

JET_ISS_QTY  =>  LV_JET_ISS_QTY); 
exception 

when  others  => 

DS_DEBUG.UNDECLARED_EXCEPnON("ISS_PROCESSOR_323"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_I_DF_QTY_DF_ISS_TOTALIZER_352.BUFFER.WRITE(LV_I_DF_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("I_DF_QTY_DF_ISS_TOTALIZER_352", 
"ISS_PROCESSOR_323"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_I_MG_QTY_MG_ISS_TOTALIZER_349.BUFFER.WRITE(LV_I_MG_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("I_MG_QTY_MG_ISS_TOTALIZER_349", 
"ISS_PROCESSOR_323"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 
DS_I_JET_QTY_JET_ISS_TOTALIZER_346.BUFFER.WRITE(LV_I_JET_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("I_JET_QTY_JET_ISS_TOTALIZER_346", 
"ISS_PROCESSOR_323"); 
end; 
end  if; 
if  not  EXCEPTION_HAS_OCCURRED  then 

175 


begin 

DS_DIESEL_ISS_QTY_DffiSEL_SUBTRACTION_839.BUFFER.WRITE(LV_DffiSEL_ISS_QTY); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,DffiSEL_ISS_QTY_DIESEL_SUBTRACTION_839,,, 
"ISS_PROCESSOR_323"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MOGAS_ISS_QTY_MOGAS_SUBTRACTION_89 1  .BUFFER.  WRITE(LV_MOGAS_ISS_QTY); 
exception 
when  BUFFERJDVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MOGAS_ISS_QTY_MOGAS_SUBTRACTION_891", 
"ISS_PROCESSOR_323");' 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_JET_ISS_QTY_JET_SUBTRACTION_914.BUFFER.WRITE(LV_JET_ISS_QTY); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("  JET_ISS_QTY_JET_SUBTRACTION_9 14" , 
"TSS_PROCESSOR_323"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"ISS_PROCESSOR_323", 
PSDL.EXCEPTION'IMAGECEXCEPTIONJD)); 
end  if; 
end  ISS_PROCESSOR_323_DRIVER; 


procedure  DATLY_ISS_DB_TABLE_743_DRIVER  is 
LV_DATLY_DF_ISS_TOTAL :  INTEGER; 
LV_DATLY_MG_ISS_TOTAL :  INTEGER; 
LV_DAILY_JET_ISS_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

Data  trigger  checks, 
if  not  (DS_DATLY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.NEW_DATA  or  else 
DS_DATLY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.NEW_DATA  or  else 
DS_DATLY_JET_ISS_TOTAL_DAILYJSS_DB_TABLE_743.NEW_DATA)then 
return; 
end  if; 

Data  stream  reads, 
begin 
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DS_DAE.Y_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.READ(LV_DAILY_DF_ISS_T 
OTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_ISS_DB_TABLE_743"); 

end; 

begin 

DS_DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.READ(LV_DAILY_MG_ISS_ 
TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_ISS_DB_TABLE_743 "); 

end; 

begin 

DS_DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743.BUFFER.READ(LV_DAILY_JET_ISS_ 
TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_JET_ISS_TOTAL_DAILY_ISS_DB_TABLE_743", 
"DAILY_ISS_DB_TABLE_743"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

DATLY_ISS_DB_TABLE_743( 
DATLY_DF_ISS_TOTAL  =>  LV_DATLY_DF_ISS_TOTAL, 
DATLY_MG_ISS_TOTAL  =>  LV_DATLY_MG_ISS_TOTAL, 
DATLY_JET_ISS_TOTAL  =>  LV_DATLY_JET_ISS_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("DArLY_ISS_DB_TABLE_743"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 
—Unconditional  output  translations. 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 

"DATLY_ISS_DB_TABLE_743", 
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PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if; 
end  DAILY_ISS_DB_TABLE_743_DRIVER; 


procedure  DAILY_RCPT_DB_TABLE_740_DRIVER  is 
LV_DAILY_DF_RCPT_TOTAL :  INTEGER; 
LV_DAILY_MG_RCPT_TOTAL :  INTEGER; 
LV_DAILY_JET_RCPT_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_DATLY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA  or  else 
DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA  or  else 
DS_DAILY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.NEW_DATA)then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_DATLY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_DF_R 
CPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740" 
,  "DArLY_RCPT_DB_TABLE_740"); 

end; 

begin 

DS_DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_MG_ 
RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 
",  "DAILY_RCPT_DB_TABLE_740"); 

end; 

begin 

DS_DAILY_JET_RCPT_TOTAL_DAiLY_RCPT_DB_TABLE_740.BUFFER.READ(LV_DAILY_JET_ 
RCPTTOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DATLY_JET_RCPT_TOTAL_DAILY_RCPT_DB_TABLE_740 
",  "DAILY_RCPT_DB_TABLE_740"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 
DAILY_RCPT_DB_TABLE_740( 
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DAILY_DF_RCPT_TOTAL  =>  LV_DAILY_DF_RCPT_TOTAL, 
DAILY_MG_RCPT_TOTAL  =>  LV_DAILY_MG_RCPT_TOTAL, 
DAILY_JET_RCPT_TOTAL  =>  LV_DAILY_JET_RCPTTOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("DAILY_RCPT_DB_TABLE_740"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DAILY_RCPT_DB_TABLE_740", 
PSDL.EXCEPTION'IMAGECEXCEPTION.rD)); 
end  if; 
end  DAILY_RCPT_DB_TABLE_740_DRIVER; 


procedure  MONTHLY_REPORTER_601_DRIVER  is 
LV_MO_ISS_JET_TOTAL :  INTEGER; 
LV_MO_ISS_MG_TOTAL :  INTEGER; 
LV_MO_ISS_DF_TOTAL :  INTEGER; 
LV_MO_RCPT_JET_TOTAL :  INTEGER; 
LV_MO_RCPT_MG_TOTAL :  INTEGER; 
LV_MO_RCPT_DF_TOTAL :  INTEGER; 
LV_MONTH_DF_ISS_TOTAL :  INTEGER; 
LV_MONTH_DF_RCPT_TOTAL :  INTEGER; 
LV_MONTH_MG_ISS_TOTAL :  INTEGER; 
LV_MONTH_MG_RCPT_TOTAL :  INTEGER; 
LV_MONTH_JET_RCFT_TOTAL :  INTEGER; 
LV_MONTH_JET_ISS_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

-  Data  stream  reads. 

begin 

DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.READ(LV_MO_ISS_JET_TOTAL 

); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601 "); 
end; 
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begin 
DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.RE  AD(LV_MO_ISS_MG_TOTAL 

); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_MG_TOTAL_MONTHLY_REPORTER_60 1 " , 
"  MONTHLY_REPORTER_60 1 "); 
end; 
begin 

DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.READ(LV_MO_ISS_DF_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_60 1 ", 
MMONTHLY_REPORTER_60 1 "); 
end; 
begin 

DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.RE  AD(LV_MO_RCPT_JET_TO 
TAL); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1 " , 
"MONTHLY_REPORTER_601"); 

end; 

begin 

DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.READ(LV_MO_RCPT_MG_TO 
TAL); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BlJFFER_lJNDERFLOW(,,MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601,,, 
"MONTHLY_REPORTER_601"); 

end; 

begin 

DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.READ(LV_MO_RCPT_DF_TOT 
AL); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601 "); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

MONTHLY_REPORTER_601( 
MO_ISS_JET_TOTAL  =>  LV_MO_ISS_JET_TOTAL, 
MO_ISS_MG_TOTAL  =>  LV_MO_ISS_MG_TOTAL, 
MO_ISS_DF_TOTAL  =>  LV_MO_ISS_DF_TOTAL, 
MO_RCPT_JET_TOTAL  =>  LV_MO_RCPT_JET_TOTAL, 
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MO_RCPT_MG_TOTAL  =>  LV_MO_RCPT_MG_TOTAL, 
MO_RCPT_DF_TOTAL  =>  LV_MO_RCPT_DF_TOTAL, 
MONTH_DF_ISS_TOTAL  =>  LV_MONTH_DF_ISS_TOTAL, 
MONTH_DF_RCPT_TOTAL  =>  LV_MONTH_DF_RCPT_TOTAL, 
MONTH_MG_ISS_TOTAL  =>  LV_MONTH_MG_ISS_TOTAL, 
MONTH_MG_RCPT_TOTAL  =>  LV_MONTH_MG_RCPT_TOTAL, 
MONTH_JET_RCPT_TOTAL  =>  LV_MONTH_JET_RCPT_TOTAL, 
MONTH_JET_ISS_TOTAL  =>  LV_MONTH_JET_ISS_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MONTHLY_REPORTER_601"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_MO_ISS_JET_TOT 
AL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"MONTHLY_REPORTER_60 1 "); 

end; 

begin 

DS_MOJSS_JET_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_JET_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_60 1 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_MO_ISS_MG_TOT 
AL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MONTHLY_REPORTER_601 "); 

end; 

begin 
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DS_MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_MG_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_60 1 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_ISS_DF_TOTAL_MO_DFJSS_TOTALIZER_592.BUFFER.WRTTE(LV_MO_ISS_DF_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592,^ 
"MONTHLY_REPORTER_60 1 "); 
end; 
begin 

DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.  WRITE(LV_MO_ISS_DF_TOTAL) 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_MO_RCPT_J 
ET_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589", 
"MONTHLY_REPORTER_60 1 "); 

end; 

begin 

DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.  WRITE(LV_MO_RCPT_JETT 
OTAL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1 " , 
"MONTHLY_REPORTER_601"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_RCr^_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.WRITE(LV_MO_RCPT_M 
G_TOTAL); 
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exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586", 
"MONTHLY_REPORTER_60 1 "); 

end; 

begin 

DS_MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.  WRITE(LV_MO_RCPT_MG_T 
OTAL); 

exception 
when  BUFFER.OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_MO_RCPT_DF 
.TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583", 
"MONTHLY_REPORTER_601"); 

end; 

begin 

DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_DF_TO 
TAL); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601", 
"MONTHLY_REPORTER_601"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_DFJSS_TOTAL_DffiSELJSS_ACCT_PROC_934.BUT^ER.WRITE(LV_MONTH_DF_I 
SS_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MONTH_DF_ISS_TOTAL_DffiSEL_ISS_ACCT_PROC_934", 
"MONTHLY_REPORTER_601 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_DF_RCPT_TOTAL_DffiSEL^CPT_ACCT_PROC_937.BUFFER.WRITE(LV_MONTH_ 
DF_RCPT_TOTAL); 
exception 
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when  BUFFERJDVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MONTH_DF_RCPT_TOTAL_DESEL_RCPT_ACCT_PROC_93 
7",  "MONTHLY_REPORTER_601"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940.BUFFER.WRITE(LV_MONTH_MG 
_ISS_TOTAL); 
exception 
when  BUFFERJDVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940", 
"MONTHLY_REPORTER_60 1 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943.BUFFER.WRITE(LV_MONTH 
_MG_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_9 
43",  "MONTHLY_REPORTER_601"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949.BUFFER.WRITE(LV_MONTH_JET 
_RCPT_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW(,,MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949", 
"MONTHLY_REPORTER_60 1 "); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.BUFFER.WRITE(LV_MONTH_JET_ISS 
_TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946", 
"  MONTHLY_REPORTER_60 1 "); 
end; 
end  if; 

--  PSDL  Exception  handler. 
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if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MONTHLY_REPORTER_601", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  MONTHLY_REPORTER_601_DRIVER; 


procedure  MO_JET_ISS_TOTALIZER_598_DRIVER  is 
LV_DATLY_JET_ISS_TOTAL :  INTEGER; 
LV_MO_ISS_JET_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_DATLY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598.NEW_DATA)  then 
return; 
end  if; 

~  Data  stream  reads, 
begin 

DS_MOJSS_JET_TOTAL_MO_JETJSS_TOTALIZER_598.BUFFER.READ(LV_MO_ISS_JET_TOT 
AL); 

exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598", 
"MO_JET_ISS_TOTALIZER_598"); 

end; 

begin 

DS_DAE.Y_JETJSS_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.READ(LV_DAILY_JET_IS 
S_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BTJFFER_UNDERFLOW(,•DAILY_JET_ISS_TOTAL_MO_JET_ISS_TOTALIZER_598^ 
"MO_JET_ISS_TOTALIZER_598"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

MO_JET_ISS_TOTALIZER_598( 
DATLY_JET_ISS_TOTAL  =>  LV_DAILY_JET_ISS_TOTAL, 
MO_ISS_JET_TOTAL  =>  LV_MO_ISS_JET_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("MO_JET_ISS_TOTALIZER_598"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 
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—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPnON_HAS_OCCURRED  then 
begin 

DS_MO_ISS_JET_TOTAL_MO_JET_ISS_TOTALIZER_598.BUFFER.WRITE(LV_MO_ISS_JET_TOT 
AL); 

exception 
when  BUFFER_OVERFLOW  => 

DSJ}EBUG.BUFFERjDVERFLOW("MOJSSJETjrOTAL_MOJETJSSjrOTALIZER_598", 
"MO_JET_ISS_TOTALIZER_598"); 

end; 

begin 

DS_MO_ISS_JET_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.  WRITE(LV_MO_ISS_JET_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_JET_TOTAL_MONTHLY_REPORTER_601", 
"MO_JET_ISS_TOTALIZER_598"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_JET_ISS_TOTALIZER_598", 
PSDL_EXCEPTION,IMAGE(EXCEPTION_ID)); 
end  if; 
end  MO_JET_ISS_TOTALIZER_598_DRIVER; 


procedure  MO_MG_ISS_TOTALIZER_595_DRIVER  is 
LV_DATLY_MG_ISS_TOTAL :  INTEGER; 
LV_MO_ISS_MG_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads, 
begin 

DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.READ(LV_MO_ISS_MG_TOT 
AL); 

exception 
when  BUFFER_UNDERFLOW  => 
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DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_595"); 

end; 

begin 

DS_DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.READ(LV_DAILY_MG_IS 
S.TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_ISS_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_595"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

MO_MG_ISS_TOTALIZER_595( 
DATLY_MG_ISS_TOTAL  =>  LV_DATLY_MG_ISS_TOTAL, 
MO_ISS_MG_TOTAL  =>  LV_MO_ISS_MG_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("MO_MGJSS_TOTALIZER_595"); 
EXCEPTION_HAS_OCCURRED  ;=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595.BUFFER.WRITE(LV_MO_ISS_MG_TOT 
AL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_MG_TOTAL_MO_MG_ISS_TOTALIZER_595", 
"MO_MG_ISS_TOTALIZER_595"); 

end; 

begin 

DS_MOJSS_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_MG_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS3EBUG.BUFFER_OVERFLOW(nMO_ISS_MG_TOTAL_MONTHLY_REPORTER_601", 
"MO_MG_ISS_TOTALIZER_595"); 
end; 
end  if; 
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—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_MG_ISS_TOTALIZER_595", 
PSDL_EXCEPTION"IMAGE(EXCEPTION_ID)); 
end  if; 
end  MO_MG_ISS_TOTALIZER_595_DRIVER; 


procedure  MO_DF_ISS_TOTALIZER_592_DRIVER  is 
LV_DAJLY_DF_ISS_TOTAL  :  INTEGER; 
LV_MO_ISS_DF_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_DATLY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.NEW_DATA)  then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.READ(LV_MO_ISS_DF_TOTAL 

); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592", 
"MO_DF_ISS_TOTALIZER_592"); 
end; 
begin 

DS_DATLY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.READ(LV_DArLY_DFJSS_ 
TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DATLY_DF_ISS_TOTAL_MO_DF_ISS_TOTALIZER_592", 
"MO_DF_ISS_TOTALIZER_592"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

MO_DF_ISS_TOTALIZER_592( 
DATLY_DF_ISS_TOTAL  =>  LV_DATLY_DF_ISS_TOTAL, 
MO_ISS_DF_TOTAL  =>  LV_MO_ISS_DF_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_DF_ISS_TOTALIZER_592"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
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end  if; 

--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592.BUFFER.WRITE(LV_MO_ISS_DF_TOTA 
L); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MO_DF_ISS_TOTALIZER_592", 
"MO_DF_ISS_TOTALIZER_592"); 
end; 
begin 

DS_MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_ISS_DF_TOTAL) 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_ISS_DF_TOTAL_MONTHLY_REPORTER_601", 
"MO_DF_ISS_TOTALIZER_592"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_DF_ISS_TOTALIZER_592", 
PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if; 
end  MO_DF_ISS_TOTALIZER_592_DRIVER; 


procedure  MO_JET_RCPT_TOTALIZER_589_DRIVER  is 
LV_DATLY_JET_RCPT_TOTAL :  INTEGER; 
LV_MO_RCPT_JET_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION_ID:  PSDL_EXCEPTION; 
begin 
—  Data  trigger  checks. 

if  not  (DS_DATLY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589.NEW_DATA)  then 
return; 
end  if; 

~  Data  stream  reads, 
begin 

DS_DAILY_JET_RCPT_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.READ(LV_DAILY_JE 
TJtCPTTOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 
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DS_DEBUG.BUFFER_UNDERFL0W("DAILY_JET_RCPT_T0TAL_M0_JET_RCPT_T0TALIZER_5 
89",  "MO_JET_RCPT_TOTALIZER_589"); 

end; 

begin 

DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.READ(LV_MO_RCPT_JE 
T_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589", 
"MO_JET_RCPT_TOTALIZER_589"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

MO_JET_RCPT_TOTALIZER_589( 
DATLY_JET_RCPT_TOTAL  =>  LV_DATLY_JET_RCPT_TOTAL, 
MO_RCPT_JET_TOTAL  =>  LV_MO_RCPT_JET_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_JET_RCPT_TOTALIZER_589"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589.BUFFER.WRITE(LV_MO_RCPT_J 
ETJTOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MO_JET_RCPT_TOTALIZER_589", 
"MO_JET_RCPT_TOTALIZER_589"); 

end; 

begin 

DS_MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1  .BUFFER.WRITE(LV_MO_RCPT_JET_T 
OTAL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_JET_TOTAL_MONTHLY_REPORTER_60 1 ", 
"  MO_JET_RCPT_TOTALIZER_589"); 
end; 
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end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_JET_RCPT_TOTALIZER_589" , 
PSDL_EXCEPTION'IMAGE(EXCEPTIONJD)); 
end  if; 
end  MO_JET_RCPT_TOTALIZER_589_DRIVER; 


procedure  MO_MG_RCPT_TOTALIZER_586_DRIVER  is 
LV_DATLY_MG_RCPT_TOTAL :  INTEGER; 
LV_MO_RCPT_MG_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL.EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_DATLY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_586.BUFFER.READ(LV_DAILY_M 
G_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_MG_RCPT_TOTAL_MO_MG_RCPT_TOTALIZER_5 
86",  ,'MO_MG_RCPT_TOTALIZER_586"); 

end; 

begin 

DS_MO_RCPT_MG_TOTAL_MO_MG^Cr^_TOTALIZER_586.BUFFER.READ(LV_MO_RCPT_M 
G_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_lJNDERFLOW("MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586,^ 
"MO_MG_RCPT_TOTALIZER_586"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

MO_MG_RCPT_TOTALIZER_586( 
DATLY_MG_RCPT_TOTAL  =>  LV_DATLY_MG_RCPT_TOTAL, 
MO_RCPT_MG_TOTAL  =>  LV_MO_RCPT_MG_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MO_MG_RCPT_TOTALIZER_586"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
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end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_M03CPT_MG_TOTAL_MO_MG^CPT_TOTALIZER_586.BUFFER.WRITE(LV_MO_RCPT_M 
GJTOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MO_MG_RCPT_TOTALIZER_586", 
"MO_MG_RCPT_TOTALIZER_586"); 

end; 

begin 

DS_MO3CPT_MG_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_MG_T 
OTAL); 

exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_MG_TOTAL_MONTHLY_REPORTER_601", 
"MO_MG_RCPT_TOTALIZER_586"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_MG_RCPT_TOTALIZER_586", 
PSDL_EXCEPnON'IMAGE(EXCEPTION_ID)); 
end  if; 
end  MO_MG_RCPT_TOTALIZER_586_DRIVER; 


procedure  MO_DF_RCPT_TOTALIZER_583_DRIVER  is 
LV_DATLY_DF_RCPT_TOTAL :  INTEGER; 
LV_MO_RCPT_DF_TOTAL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
Data  trigger  checks. 

if  not  (DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.NEW_DATA)  then 
return; 

end  if; 

Data  stream  reads, 
begin 
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DS_DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.READ(LV_DAILY_DF_ 
RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("DAILY_DF_RCPT_TOTAL_MO_DF_RCPT_TOTALIZER_58 
3",  "MO_DF_RCPT_TOTALIZER_583"); 

end; 

begin 

DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.READ(LV_MO_RCPT_DF_ 
TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583", 
"MO_DF_RCPT_TOTALIZER_583"); 
end; 

~  Execution  trigger  condition  check, 
if  True  then 
begin 

MO_DF_RCPT_TOTALIZER_583( 
DAILY_DF_RCPT_TOTAL  =>  LV_DATLY_DF_RCPT_TOTAL, 
MO_RCPT_DF_TOTAL  =>  LV_MO_RCPT_DF_TOTAL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION(,,MO_DF_RCPT_TOTALIZER_583"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583.BUFFER.WRITE(LV_MO_RCPT_DF 
.TOTAL); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MO_DF_RCPT_TOTALIZER_583", 
"MO_DF_RCPT_TOTALIZER_583"); 

end; 

begin 

DS_MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601.BUFFER.WRITE(LV_MO_RCPT_DF_TO 
TAL); 

exception 
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when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("MO_RCPT_DF_TOTAL_MONTHLY_REPORTER_601", 
"MO_DF_RCPT_TOTALIZER_583"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MO_DF_RCPT_TOTALIZER_583", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  MO_DF_RCPT_TOTALIZER_583_DRIVER; 


procedure  DffiSEL_ISS_ACCT_PROC_934_DRIVER  is 
LV_MONTH_DF_ISS_TOTAL :  INTEGER; 
LV_TOTAL_MO_DF_ISS  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934.NEW_DATA)  then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_MONTH_DF_ISS_TOTAL_DIESEL_ISS_ACCT_PROC_934.BUFFER.READ(LV_MONTH_DF_IS 
S_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MONTH_DF_ISS_TOTAL_DrESEL_ISS_ACCT_PROC_934", 
"DIESEL_ISS_ACCT_PROC_934"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

DIESEL_ISS_ACCT_PROC_934( 
MONTH_DF_ISS_TOTAL  =>  LV_MONTH_DF_ISS_TOTAL, 
TOTAL_MO_DF_ISS  =>  LV_TOTAL_MO_DF_ISS); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON(,,DffiSEL_ISS_ACCT_PROC_934"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 
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~  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.BUFFER.WRITE(LV_TOTAL_MO_DF_ISS); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_DF_ISS_DF_ACCT_CALC_952", 
"DIESEL_ISS_ACCT_PROC_934"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_ISS_ACCT_PROC_934", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  DIESEL_ISS_ACCT_PROC_934_DRIVER; 


procedure  DffiSEL_RCPT_ACCT_PROC_937_DRIVER  is 
LV_MONTH_DF_RCPT_TOTAL :  INTEGER; 
LV_TOTAL_MO_DF_RCPT :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_937.BUFFER.READ(LV_MONTH_ 
DF_RCPT_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MONTH_DF_RCPT_TOTAL_DIESEL_RCPT_ACCT_PROC_ 
937",  "DIESEL_RCPT_ACCT_PROC_937"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

DlESEL_RCPT_ACCT_PROC_937( 
MONTH_DF_RCPT_TOTAL  =>  LV_MONTH_DF_RCPT_TOTAL, 
TOTAL_MO_DF_RCPT  =>  LV_TOTAL_MO_DF_RCPT); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPnON("DIESEL_RCPT_ACCT_PROC_937"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
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EXCEPTIONJD  :=  UNDECLARED_ADAJ5XCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION  JIASJ3CCURRED  then 
begin 

DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.BUFFER.WRITE(LV_TOTAL_MO_DF_RCPT); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952", 
"DffiSEL_RCPT_ACCT_PROC_937"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION  JiASJDCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DffiSEL_RCPT_ACCT_PROC_937" , 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
endDIESEL_RCPT_ACCT_PROC_937_DRIVER; 


procedure  MOGAS_ISS_ACCT_PROC_940_DRIVER  is 
LV_MONTH_MG_ISS_TOTAL :  INTEGER; 
LV_TOTAL_MO_MG_ISS  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_MONrTH_MGJSS_TOTAL_MOGASJSS_ACCT_PROC_940.BUFFER.READ(LV_MONTH_MG_ 
ISS_TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW(,,MONTH_MG_ISS_TOTAL_MOGAS_ISS_ACCT_PROC_940' 
,  "MOGAS_ISS_ACCT_PROC_940"); 
end; 

-  Execution  trigger  condition  check. 

if  True  then 
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begin 

MOGAS_ISS_ACCT_PROC_940( 
MONTH_MG_ISS_TOTAL  =>  LV_MONTH_MG_ISS_TOTAL, 
TOTAL_MO_MG_ISS  =>  LV_TOTAL_MO_MG_ISS); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_ISS_ACCT_PROC_940"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.BUFFER.WRITE(LV_TOTAL_MO_MG_ISS); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_MG_ISS_MG_ACCT_CALC_955", 
,,MOGAS_ISS_ACCT_PROC_940"); 
end; 
end  if; 

--  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_ISS_ACCT_PROC_940", 
PSDL_EXCEPTION'rMAGE(EXCEPTION_ID)); 
end  if; 
end  MOGAS_ISS_ACCT_PROC_940_DRIVER; 


procedure  MOGAS_RCPT_ACCT_PROC_943_DRIVER  is 
LV_MONTH_MG_RCPT_TOTAL :  INTEGER; 
LV_TOTAL_MO_MG_RCPT :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads, 
begin 

DS_MO^^^H_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC_943.BUFFER.READ(LV_MONTH_ 
MG_RCPT_TOTAL); 
exception 
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when  BUFFER  UNDERFLOWS 

DS_DEBUG.BUFFER_UNDERFLOW("MONTH_MG_RCPT_TOTAL_MOGAS_RCPT_ACCT_PROC 
_943",  "MOGAS_RCPT_ACCT_PROC_943"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

MOGAS_RCPT_ACCT_PROC_943( 
MONTH_MG_RCPT_TOTAL  =>  LV_MONTH_MG_RCPT_TOTAL, 
TOTAL_MO_MG_RCPT  =>  LV_TOTAL_MO_MG_RCPT); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("MOGAS_RCPT_ACCT_PROC_943"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTION_ID  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.BUFFER.WRITE(LV_TOTAL_MO_MG_RCPT) 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955", 
"MOGAS_RCPT_ACCT_PROC_943"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MOGAS_RCPT_ACCT_PROC_943", 
PSDL_EXCEPTIONTMAGE(EXCEPTiON_ID)); 
end  if; 
endMOGAS_RCPT_ACCT_PROC_943_DRIVER; 

procedure  JET_ISS_ACCT_PROC_946_DRIVER  is 
LV_MONTH_JET_ISS_TOTAL :  INTEGER; 
LV_TOTAL_MO_JET_ISS  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

—  Data  trigger  checks. 

if  not  (DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.NEW_DATA)  then 
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return; 
end  if; 

—  Data  stream  reads. 

begin 

DS_MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946.BUFr7ER.READ(LV_MONTH_JET_ISS. 
TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MONTH_JET_ISS_TOTAL_JET_ISS_ACCT_PROC_946", 
"JET_ISS_ACCT_PROC_946"); 
end; 

—  Execution  trigger  condition  check. 

if  True  then 
begin 

JET_ISS_ACCT_PROC_946( 
MONTH_JET_ISS_TOTAL  =>  LV_MONTH_JET_ISS_TOTAL, 
TOTAL_MO_JET_ISS  =>  LV_TOTAL_MO_JET_ISS); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_ISS_ACCT_PROC_946"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

~  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.BUFFER.WRITE(LV_TOTAL_MO_JET_ISS); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOTAL_MO_JET_ISS_JET_ACCT_CALC_958", 
"JET_ISS_ACCT_PROC_946"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_ISS_ACCT_PROC_946", 
PSDL_EXCEPTION,IMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_ISS_ACCT_PROC_946_DRIVER; 


procedure  JET_RCPT_ACCT_PROC_949_DRIVER  is 
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LV_MONTH_JET_RCPT_TOTAL :  INTEGER; 
LV_TOTAL_MO_JET_RCPT :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949.NEW_DATA)  then 
return; 
end  if; 


--  Data  stream  reads, 
begin 

DS_MONTH_JET3CPT_TOTAL_JET_RCPT_ACCT_PROC_949.BUFFER.READ(LV_MONTH_JET_ 
RCPT.TOTAL); 
exception 
when  BUFFER_UNDERFLOW  => 

DS_DEBUG.BUFFER_UNDERFLOW("MONTH_JET_RCPT_TOTAL_JET_RCPT_ACCT_PROC_949" 
,  "JET_RCPT_ACCT_PROC_949"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_RCPT_ACCT_PROC_949( 
MONTH_JET_RCPT_TOTAL  =>  LV_MONTH_JET_RCPT_TOTAL, 
TOTAL_MO_JET_RCPT  =>  LV_TOTAL_MO_JET_RCPT); 
exception 
when  others  => 
DS_DEBUG.UNDECXARED_EXCEPnON(,,JET_RCPT_ACCT_PROC_949"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

-  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOTAL_MO_JET_RCPT_JET_ACCr_CALC358.BUFFER.WRITE(LV_TOTAL_MO_JET_RCPT) 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958", 
"JET_RCPT_ACCT_PROC_949"); 
end; 
end  if; 

-  PSDL  Exception  handler. 
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if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"JET_RCPT_ACCT_PROC_949", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_RCPT_ACCT_PROC_949_DRIVER; 


procedure  DF_ACCT_CALC_952_DRIVER  is 
LV_TOTAL_MO_DF_ISS  :  INTEGER; 
LV_TOTAL_MO_DF_RCPT :  INTEGER; 
LV_DffiSEL_QTY_AVATLABLE :  INTEGER; 
LV_TOLERANCE_DF :  BOOLEAN; 
LV_OPENING_INV_DIESEL :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
~  Data  trigger  checks. 

if  not  (DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.NEW_DATA  and  then 

DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.NEW_DATA)then 
return; 
end  if; 

-  Data  stream  reads, 
begin 

DS_TOTAL_MO_DF_ISS_DF_ACCT_CALC_952.BUFFER.READ(LV_TOTAL_MO_DF_ISS); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_DF_ISS_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
begin 

DS_TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952.BUFFER.READ(LV_TOTAL_MO_DF_RCPT); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_DF_RCPT_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
begin 

DS_0PEN1NG_INV_DIESEL_DF_ACCT_CALC_952.BUFFER.READ(LV_0PEN1NG_INV_DIESEL); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OPENING_INV_DIESEL_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
begin 

DS_DIESEL_QTY_AVAILABLE_DF_ACCT_CALC_952.BUFFERREAD(LV_DIESEL_QTY_AVAlL 
ABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_QTY_AVArLABLE_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
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end; 

-  Execution  trigger  condition  check, 
if  True  then 
begin 

DF_ACCT_CALC_952( 
TOTAL_MO_DF_ISS  =>  LV_TOTAL_MO_DF_ISS, 
TOTAL_MO_DF_RCPT  =>  LV_TOTAL_MO_DF_RCPT, 
DIESEL_QTY_AVAILABLE  =>  LV_DffiSEL_QTY_AVATLABLE, 
TOLERANCE_DF  =>  LV_TOLERANCE_DF, 
OPENING_INV_DIESEL  =>  LV_OPENING_INV_DffiSEL); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("DF_ACCT_CALC_952"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOLERANCE_DF_GUI_ACC_OFnCER_179.BUFFER.WRITE(LV_TOLERANCE_DF); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOLERANCE_DF_GUI_ACC_OFnCER_179", 
"DF_ACCT_CALC_952"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OPEMNGJ>TV_DffiSEL_DF_ACCr_CALC_952.BUFFER.WRITE(LV_OPENING_IlW_DrESEL) 

* 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OPENING_INV_DrESEL_DF_ACCT_CALC_952", 
"DF_ACCT_CALC_952"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"  DF_ACCT_CALC_952", 
PSDL.EXCEPTION'IMAGEtEXCEPTIONJD)); 
end  if; 
end  DF_ACCT_CALC_952_DRIVER; 


procedure  MG_ACCT_CALC_955_DRIVER  is 
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LV_TOTAL_MO_MG_ISS  :  INTEGER; 
LV_TOTAL_MO_MG_RCPT :  INTEGER; 
LV_MOGAS_QTY_AVAILABLE :  INTEGER; 
LV_TOLERANCE_MG :  BOOLEAN; 
LV_OPENlNG_INV_MOGAS  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTION.ID:  PSDL_EXCEPTION; 
begin 
~  Data  trigger  checks. 

if  not  (DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.NEW_DATA  and  then 

DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.NEW_DATA)then 
return; 
end  if; 

~  Data  stream  reads, 
begin 

DS_TOTAL_MO_MG_ISS_MG_ACCT_CALC_955.BUFFER.READ(LV_TOTAL_MO_MG_ISS); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_MG_ISS_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; 
begin 

DS_TOTAL_MO_MG_RCPT_MG_ACCT_CALC_955.BUFFER.READ(LV_TOTAL_MO_MG_RCPT); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(MTOTAL_MO_MG_RCPT_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; 
begin 

DS_OPENlNG_INV_MOGAS_MG_ACCT_CALC_955.BUFFER.READ(LV_OPENING_INV_MOGAS 

); 

exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUr^FER_UNDERFLOW("OPENlNG_INV_MOGAS_MG_ACCT_CALC_955•,, 
"MG_ACCT_CALC_955"); 
end; 
begin 

DS_MOGAS_QTY_AVATLABLE_MG_ACCT_CALC_955.BUFFER.READ(LV_MOGAS_QTY_AVAI 
LABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("MOGAS_QTY_AVAILABLE_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

MG_ACCT_CALC_955( 
TOTAL_MO_MG_ISS  =>  LV_TOTAL_MO_MG_ISS, 
TOTAL_MO_MG_RCPT  =>  LV_TOTAL_MO_MG_RCPT, 
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MOGAS_QTY_AVAILABLE  =>  LV_MOGAS_QTY_A  VAIL  ABLE, 
TOLERANCE_MG  =>  LV_TOLERANCE_MG, 
OPENING_INV_MOGAS  =>  LV_OPENING_INV_MOGAS); 
exception 
when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("MG_ACCT_CALC_955"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

--  Exception  Constraint  translations. 

~  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOLERANCE_MG_GUI_ACC_OFFICER_179.BUFFER.WRITE(LV_TOLERANCE_MG); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("TOLERANCE_MG_GUI_ACC_OFFICER_179", 
"MG_ACCT_CALC_955"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OPEMNGJNV_MOGAS_MG_ACCT_CALC_955.BUFFER.WRITE(LV_OPENING_INV_MOGA 
S); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("OPEMNG_INV_MOGAS_MG_ACCT_CALC_955", 
"MG_ACCT_CALC_955"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"MG_ACCT_CALC_955", 
PSDL.EXCEPTION'IMAGEOEXCEPTIONJD)); 
end  if; 
end  MG_ACCT_CALC_955_DRIVER; 


procedure  JET_ACCT_CALC_958_DRIVER  is 
LV_TOTAL_MO_JET_ISS  :  INTEGER; 
LV_TOTAL_MO_JET_RCPT :  INTEGER; 
LV_JET_QTY_AVATLABLE  :  INTEGER; 
LV_TOLERANCE_JET :  BOOLEAN; 
LV_OPENING_INV_JET :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL.EXCEPTION; 
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begin 
--  Data  trigger  checks. 

if  not  (DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.NEW_DATA  and  then 

DS_TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958.NEW_DATA)then 
return; 
end  if; 

--  Data  stream  reads, 
begin 

DS_TOTAL_MO_JET_ISS_JET_ACCT_CALC_958.BUFFER.READ(LV_TOTAL_MO_JET_ISS); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_JET_ISS_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 

DS_TOTAL_MO_JET_RCPT_JET_ACCr_CALC_958.BUFFER.READ(LV_TOTAL_MO_JET_RCPT); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("TOTAL_MO_JET_RCPT_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 

DS_OPENING_INV_JET_JET_ACCT_CALC_958.BUFFER.READ(LV_OPENlNG_INV_JET); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("OPENING_INV_JET_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
begin 

DS_JET_QTY_AVAILABLE_JET_ACCT_CALC_958.BUFFER.READ(LV_JET_QTY_AVArLABLE); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("JET_QTY_AVAILABLE_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 

—  Execution  trigger  condition  check, 
if  True  then 
begin 

JET_ACCT_CALC_958( 
TOTAL_MO_JET_ISS  =>  LV_TOTAL_MO_JET_ISS, 
TOTAL_MO_JET_RCPT  =>  LV_TOTAL_MO_JET_RCPT, 
JET_QTY_AVATLABLE  =>  LV_JET_QTY_AVATLABLE, 
TOLERANCE_JET  =>  LV_TOLERANCE_JET, 
OPENING_INV_JET  =>  LV_OPENING_INV_JET); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("JET_ACCT_CALC_958"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 
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--  Exception  Constraint  translations. 

--  Other  constraint  option  translations. 

--Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_TOLERANCE_JET_GUI_ACC_OFnCER_179.BUFFER.WRITE(LV_TOLERANCE_JET); 
exception 
when  BUFFER_OVERFLOW  => 
DS.DEBUG.BUFFER.OVERFLOWC'TOLERANCE.JET.GUI.ACC.OFnCER.nQ", 
"JET.ACCT.CALCJtfS"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_OPENING_INV_JET_JET_ACCT_CALC_958.BUFFER.WRITE(LV_OPENING_INV_JET); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(',OPENING_INV_JET_JET_ACCT_CALC_958", 
"JET_ACCT_CALC_958"); 
end; 
end  if; 

-  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"  JET_ACCT_CALC_958" , 
PSDL_EXCEPTIONTMAGE(EXCEPTION_ID)); 
end  if; 
end  JET_ACCT_CALC_958_DRIVER; 


procedure  DIESEL_GAGE_854_DRIVER  is 
LV_DF_QTY_ON_HAND  :  INTEGER; 
LV_DIESEL_QTY_AVAILABLE  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_DF_QTY_ON_HAND_DIESEL_GAGE_854.BUFFER.READ(LV_DF_QTY_ON_HAND); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DF_QTY_ON_HAND_DrESEL_GAGE_854", 
•DIESEL_GAGE_854"); 
end; 

-  Execution  trigger  condition  check. 
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if  True  then 
begin 

DIESEL_GAGE_854( 
DF_QTY_ON_HAND  =>  LV_DF_QTY_ON_HAND, 
DffiSFX_QTY_AVAJLABLE  =>  LV_DffiSEL_QTY_ AVAILABLE); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("DIESEL_GAGE_854"); 
EXCEPTION_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

—Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DffiSEL_QTY_AVATLABLE_DF_ACCT_CALC_952.BUFFER.WRITE(LV_DffiSEL_QTY_AVAI 
LABLE); 

exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_0VERFL0W("DIESEL_QTY_AVA1LABLE_DF_ACCT_CALC_952", 
"DffiSEL_GAGE_854"); 
end; 
begin 

DS_DmSEL_QTY_AVATLABLE_GUI_FUEL_ON_HAND_124.BUFFER.WRITE(LV_DrESEL_QTY_ 
AVAILABLE); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DIESEL_QTY_AVAILABLE_GUI_FUEL_ON_HAND_124", 
"DrESEL_GAGE_854"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DIESEL_GAGE_854", 

PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  DIESEL_GAGE_854_DRIVER; 


procedure  DIESEL_SUBTRACTION_839_DRIVER  is 
LV_DIESEL_ISS_QTY :  INTEGER; 
LV_DF_QTY_ON_HAND  :  INTEGER; 
LVJDIESEL_VOLUME  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 

207 


EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 
--  Data  trigger  checks. 

if  not  (DS_DIESEL_ISS_QTY_DESEL_SUBTRACTION_839.NEW_DATA)  then 
return; 
end  if; 

—  Data  stream  reads, 
begin 

DS_DffiSEL_VOLUME_DffiSEL_SUBTRACTION_839.BUFFER.READ(LV_DffiSEL_VOLUME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DffiSEL_VOLUME_DrESEL_SUBTRACTION_839", 
,,DrESEL_SUBTRACTION_839"); 
end; 
begin 

DS_DffiSEL_ISS_QTY_DIESEL_SUBTRACTION_839.BUFFER.READ(LV_DffiSEL_ISS_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW(',DIESEL_ISS_QTY_DIESEL_SUBTRACTION_839", 
"DESEL_SUBTRACTION_839"); 
end; 

--  Execution  trigger  condition  check, 
if  True  then 
begin 

DEESEL_SUBTRACTION_839( 
DIESEL_ISS_QTY  =>  LV_DffiSEL_ISS_QTY, 
DF_QTY_ON_HAND  =>  LV_DF_QTY_ON_HAND, 
DIESEL_VOLUME  =>  LV_DIESEL_VOLUME); 
exception 
when  others  => 
DS_DEBUG.UNDECLARED_EXCEPTION("DffiSEL_SUBTRACTION_839"); 
EXCEPnON_HAS_OCCURRED  :=  true; 
EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 

else  return; 
end  if; 

—  Exception  Constraint  translations. 

-  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DF_QTY_ON_HAND_DrESEL_GAGE_854.BUFFER.WRITE(LV_DF_QTY_ON_HAND); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_QTY_ON_HAND_DIESEL_GAGE_854", 
"DESEL_SUBTRACTION_839"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 
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DS_DIESEL_VOLUME_DffiSEL_ADDITION_836.BUFFER.WRITE(LV_DffiSEL_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW(,,DIESEL_VOLUME_DIESEL_ADDITION_836", 
,,DIESEL_SUBTRACTION_839,,); 
end; 
begin 

DS_DffiSEL_VOLUME_DIESEL_SUBTRACTION_839.BUFFER.WRITE(LV_DffiSEL_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 

DS_DEBUG.BUFFER_OVERFLOW("DESEL_VOLUME_DIESEL_SUBTRACTION_839", 
"DIESEL_SUBTRACTION_839"); 
end; 
end  if; 

~  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DffiSEL_SUBTRACTION_839", 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  DIESEL_SUBTRACTION_839_DRIVER; 


procedure  DffiSEL_ADDITION_836_DRIVER  is 
LV_DIESEL_RCPT_QTY :  INTEGER 
LV_DF_QTY_ON_HAND  :  INTEGER; 
LV_DIESEL_VOLUME  :  INTEGER; 

EXCEPTION_HAS_OCCURRED:  BOOLEAN  :=  FALSE; 
EXCEPTIONJD:  PSDL_EXCEPTION; 
begin 

-  Data  trigger  checks. 

if  not  (DS_DESEL_RCPT_QTY_DESEL_ADDITION_836.NEW_DATA)  then 
return; 
end  if; 

-  Data  stream  reads. 

begin 

DS_DffiSEL_VOLUME_DIESEL_ADDITION_836.BUFFER.READ(LV_DIESEL_VOLUME); 
exception 
when  BUFFER_UNDERFLOW  => 
DS_DEBUG.BUFFER_UNDERFLOW("DIESEL_VOLUME_Dr£SEL_ADDITION_836", 
"DIESEL_ADDITION_836"); 
end; 
begin 

DS_DIESEL_RCPT_QTY_DIESEL_ADDITION_836.BUFFER.READ(LV_DIESEL_RCPT_QTY); 
exception 
when  BUFFER_UNDERFLOW  => 
DSJ}EBUG.BUFFERJJNDERFLOW0TJESELJlCPTJ3TYJ}ffiSEL_ADDITION_836", 
"DIESEL_ADDITION_836"); 
end; 

-  Execution  trigger  condition  check. 

if  True  then 
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begin 
DESEL_ADDrnON_836( 

DESEL_RCPT_QTY  =>  LV_DffiSEL_RCPT_QTY, 

DF_QTY_ON_HAND  =>  LV_DF_QTY_ON_HAND, 

DIESEL_VOLUME  =>  LV_DffiSEL_VOLUME); 
exception 

when  others  => 

DS_DEBUG.UNDECLARED_EXCEPTION("DESEL_ADDrnON_836"); 

EXCEPTION_HAS_OCCURRED  :=  true; 

EXCEPTIONJD  :=  UNDECLARED_ADA_EXCEPTION; 
end; 
else  return; 
end  if; 

—  Exception  Constraint  translations. 

—  Other  constraint  option  translations. 

-Unconditional  output  translations. 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DF_QTY_ON_HAND_DffiSEL_GAGE_854.BUFFER.WRITE(LV_DF_QTY_ON_HAND); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DF_QTY_ON_HAND_DIESEL_GAGE_854", 
"DIESEL_ADDiTION_836"); 
end; 
end  if; 

if  not  EXCEPTION_HAS_OCCURRED  then 
begin 

DS_DIESEL_VOLUME_DIESEL_ADDITION_836.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DlESEL_ADDITION_836", 
"DIESEL_ADDiTION_836"); 
end; 
begin 

DS_DIESEL_VOLUME_DESEL_SUBTRACTION_839.BUFFER.WRITE(LV_DIESEL_VOLUME); 
exception 
when  BUFFER_OVERFLOW  => 
DS_DEBUG.BUFFER_OVERFLOW("DIESEL_VOLUME_DrESEL_SUBTRACTION_839", 
"DrESEL_ADDITION_836"); 
end; 
end  if; 

—  PSDL  Exception  handler. 

if  EXCEPTION_HAS_OCCURRED  then 
DS_DEBUG.UNHANDLED_EXCEPTION( 
"DEESEL_ADDITION_836" , 
PSDL_EXCEPTION'IMAGE(EXCEPTION_ID)); 
end  if; 
end  DrESEL_ADDITION_836_DRIVER; 
end  FUEL_SUBSYSTEM_1_DRIVERS; 

package  fuel_subsystem_l_DYNAMIC_SCHEDULERS  is 
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procedure  START_DYNAMIC_SCHEDULE; 
procedure  STOP_DYNAMIC_SCHEDULE; 
endfuel_subsystem_l_DYNAMIC_SCHEDULERS; 


with  fuel_subsystem_l_DRIVERS;  use  fuel_subsystem_l_DRIVERS; 
with  PRIORITY_DEFINrnONS;  use  PRIORTTY.DEFINITIONS; 
package  body  fuel_subsystem_l_DYNAMIC_SCHEDULERS  is 

task  type  DYNAMIC_SCHEDULE_TYPE  is 
pragma  priority  (DYNAMIC_SCHEDULE_PRIORITY); 
entry  START; 

end  DYNAMIC_SCHEDULE_TYPE; 

for  DYNAMIC_SCHEDULE_TYPE'STORAGE_SIZE  use  100_000; 

DYNAMIC_SCHEDULE  :  DYNAMIC_SCHEDULE_TYPE; 

done  :  boolean  :=  false; 
procedure  STOP_DYNAMIC_SCHEDULE  is 
begin 
done  :=  true; 
end  STOP_DYNAMIC_SCHEDULE; 

task  body  DYNAMIC_SCHEDULE_TYPE  is 
begin 
accept  START; 
loop 
gui_bulk_receipt_3_DRIVER; 
exit  when  done; 

gui_other_receipt_6_DRIVER; 
exit  when  done; 

gui_bulk_issue_9_DRIVER; 
exit  when  done; 

gui_other_issue_12_DRIVER; 
exit  when  done; 

jet_gage_9 17_DRIVER; 
exit  when  done; 

mogas_gage_894_DRIVER; 
exit  when  done; 

diesel_gage_854_DRIVER; 
exit  when  done; 

bulk_rcpt_db_table_495_DRIVER; 
exit  when  done; 

bulk_rcpt_processor_l  98_DRIVER; 
exit  when  done; 

other_rcpt_db_table_501_DRIVER; 
exit  when  done; 
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oth_rcpt_processor_207_DRTVER; 
exit  when  done; 

rcpt_processor_2 1 0_DRI  VER; 
exit  when  done; 

bulk_iss_db_table_498_DRIVER; 
exit  when  done; 

bulk_iss_processor_3 10_DRIVER; 
exit  when  done; 

other_iss_db_table_504_DRIVER; 
exit  when  done; 

oth_iss_processor_307_DRIVER; 
exit  when  done; 

iss_processor_323_DRIVER; 
exit  when  done; 

jet_acct_calc_958_DRIVER; 
exit  when  done; 

mg_acct_calc_955_DRIVER; 
exit  when  done; 

daily_rcpt_db_table_740_DRIVER; 
exit  when  done; 

mo_df_rcpt_totalizer_583_DRIVER; 
exit  when  done; 

daily_iss_db_table_743_DRIVER; 
exit  when  done; 

mo_df_iss_totalizer_592_DRIVER; 
exit  when  done; 

moJet_iss_totalizer_598_DRIVER; 
exit  when  done; 

moJet_rcpt_totalizer_589_DRIVER; 
exit  when  done; 

mo_mg_iss_totalizer_595_DRIVER; 
exit  when  done; 

mo_mg_rcpt_totalizer_586_DRIVER; 
exit  when  done; 

diesel_iss_acct_proc_934_DRIVER; 
exit  when  done; 

diesel_rcpt_acct_proc_937_DRIVER; 
exit  when  done; 
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jet_iss_acct_proc_946_DRIVER, 
exit  when  done; 

jet_rcpt_acct_proc_949_DRIVER; 
exit  when  done; 

mogas_iss_acct_proc_940_DRIVER; 
exit  when  done; 

mogas_rcpt_acct_proc_943_DRIVER; 
exit  when  done; 

gui_fuel_on_hand_  1 24DRI  VER; 
exit  when  done; 

df_acct_calc_952_DRIVER; 
exit  when  done; 

jet_rcpt_totalizer_280_DRIVER; 
exit  when  done; 

mg_rcpt_totalizer_277_DRIVER; 
exit  when  done; 

df_rcpt_totalizer_274_DRIVER; 
exit  when  done; 

jet_addition_9 1 1DRIVER; 
exit  when  done; 

mogas_addition_888_DRIVER; 
exit  when  done; 

diesel_addition_836_DRIVER; 
exit  when  done; 

df_iss_totalizer_3  52DRIVER; 
exit  when  done; 

mg_iss_totalizer_349_DRIVER; 
exit  when  done; 

jet_iss_totalizer_3  46DRI  VER; 
exit  when  done; 

jet_subtraction_9 1 4DRI  VER; 
exit  when  done; 

mogas_subtraction_89 1DRIVER; 
exit  when  done; 

diesel_subtraction_83  9DRIVER; 
exit  when  done; 

gui_acc_officer_  1 79DRI  VER; 
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exit  when  done; 

end  loop; 
end  DYNAMIC_SCHEDULE_TYPE; 

procedure  START_DYNAMIC_SCHEDULE  is 
begin 
DYNAMIC_SCHEDULE.  START; 
end  START_DYNAMIC_SCHEDULE; 

end  ruel_subsystem_l_DYNAMIC_SCHEDULERS; 


package  fuel_subsystem_l_STATIC_SCHEDULERS  is 

procedure  START_STATIC_SCHEDULE; 

procedure  STOP_STATIC_SCHEDULE; 
endfuel_subsystem_l_STATIC_SCHEDULERS; 

with  fuel_subsystem_l_DRIVERS;  use  fuel_subsystem_l  DRIVERS; 

with PRIORITY_DEFINITIONS;  use PRIORTTYDEFINITIONS; 

with  PSDL_TIMERS;  use  PSDL_TIMERS; 

withTEXTJO;  useTEXTJO; 

package  body  fuel_subsystem_l_STATIC_SCHEDULERS  is 

task  type  STATIC_SCHEDULE_TYPE  is 
pragma  priority  (STATIC_SCHEDULE_PRIORITY); 
entry  START; 

end  STATIC_SCHEDULE_TYPE; 

for  STATIC_SCHEDULE_TYPE'STORAGE_SIZE  use  200_000; 

STATIC_SCHEDULE  :  STATIC_SCHEDULE_TYPE; 

done  :  boolean  :=  false; 
procedure  STOP_STATIC_SCHEDULE  is 
begin 
done  :=  true; 
end  STOP_STATIC_SCHEDULE; 

task  body  STATIC_SCHEDULE_TYPE  is 
PERIOD  :  duration; 

daily_reporter_410_START_TIMEl  :  duration; 
daily_reporter_410_STOP_TIMEl :  duration; 
monthly_reporter_601_START_TIME2  :  duration; 
monthly_reporter_601_STOP_TIME2  :  duration; 
daily_reporter_410_START_TIME3  :  duration; 
daily_reporter_410_STOP_TIME3  :  duration; 
daily_reporter_410_START_TIME4  :  duration; 
daily_reporter_410_STOP_TrME4  :  duration; 
daily_reporter_410_START_TIME5  :  duration; 
daily_reporter_410_STOP_TIME5  :  duration; 
daily_reporter_410_START_TIME6  :  duration; 
daily_reporter_410_STOP_TIME6  :  duration; 
daily_reporter_410_START_TIME7  :  duration; 
daily_reporter_410_STOP_TIME7  :  duration; 
daily_reporter_410_START_TIME8  :  duration; 
daily_reporter_410_STOP_TIME8  :  duration; 
daily_reporter_410_START_TIME9  :  duration; 
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daily_reporter_410_STOP_TIME9  :  duration; 
aaily^reporter_410_START_TIME10  :  duration; 
daily_reporter_410_STOP_TIME10  :  duration; 
daily_reporter_410_START_TIMEll  :  duration; 
daily_reporter_410_STOP_TIMEll  :  duration; 
daily_reporter_410_START_TIME12  :  duration; 
daily_reporter_410_STOP_TIME12  :  duration; 
daily_reporter_410_START_TIME13  :  duration; 
daily_reporter_410_STOP_TIME13  :  duration; 
daily_reporter_410_START_TIME14  :  duration; 
daily_reporter_410_STOP_TIME14  :  duration; 
daily_reporter_410_START_TIME15  :  duration; 
daily_reporter_410_STOP_TIME15  :  duration; 
daily_reporter_410_START_TIME16  :  duration; 
daily_reporter_410_STOP_TIME16  :  duration; 
daily_reporter_410_START_TIME17  :  duration; 
daily_reporter_410_STOP_TIME17  :  duration; 
daily_reporter_410_START_TIME18  :  duration; 
daily_reporter_410_STOP_TIME18 :  duration; 
daily_reporter_410_START_TIME19  :  duration; 
daily_reporter_410_STOP_TIME19  :  duration; 
daily_reporter_410_START_TIME20  :  duration; 
daily_reporter_410_STOP_TIME20 :  duration; 
daily_reporter_410_START_TIME21  :  duration; 
daily_reporter_410_STOP_TIME21 :  duration; 
daily_reporter_410_START_TIME22  :  duration; 
daily_reporter_410_STOP_TIME22  :  duration; 
daily_reporter_410_START_TIME23  :  duration; 
daily_reporter_410_STOP_TIME23  :  duration; 
daily_reporter_410_START_TIME24  :  duration; 
daily_reporter_410_STOP_TIME24 :  duration; 
daily_reporter_410_START_TIME25  :  duration; 
daily_reporter_410_STOP_TIME25  .  duration; 
daily_reporter_410_START_TIME26  :  duration; 
daily_reporter_410_STOP_TIME26 :  duration; 
daily_reporter_410_START_TIME27  :  duration; 
daily_reporter_410_STOP_TIME27 :  duration; 
daily_reporter_410_START_TIME28  :  duration; 
daily_reporter_410_STOP_TIME28 :  duration; 
daily_reporter_410_START_TIME29  :  duration; 
daily_reporter_410_STOP_TIME29  :  duration; 
daily_reporter_410_START_TIME30  :  duration; 
daily_reporter_410_STOP_TIME30  :  duration; 
daily_reporter_410_START_TIME31  :  duration; 
daily_reporter_410_STOP_TIME31  :  duration; 
schedule_timer :  TIMER  :=  NEW_TIMER; 
begin 
accept  START; 

PERIOD  :=  TARGET_TO_HOST(duration(  1.08000E+05)); 

daily_reporter_410_START_TIMEl  ~  TARGET_TO_HOST(duration(  0.00000E-K)0)); 
daily_reporter_410_STOP_TIMEl  :=  TARGET_TO_HOST(duration(  7.50000E-01)); 
monthly_reporter_601_START_TIME2  :=  TARGET_TO_HOST(duration(  7.50000E-01)); 
monthly_reporter_601_STOP_TIME2  :=  TARGET_TO_HOST(duration(  1.50000E+00)); 
daily_reporter_410_START_TIME3  :=  TARGET_TO_HOST(duration(  3.60000E+03)); 
daily_reporter_410_STOP_TIME3  :=  TARGET_TO_HOST(duration(  3.60075E+03)); 
daily_reporter_410_START_TIME4  :=  TARGET_TO_HOST(duration(  7.20000E+03)); 
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daily_reporter_410_STOP_TIME4  :=  TARGET_TO_HOST(duration(  7.20075E+03)); 
daily_reporter_410_START_TIME5  :=  TARGET_TO_HOST(duration(  1.08000E-K)4)); 
daily_reporter_410_STOP_TIME5  :=  TARGET_TO_HOST(duration(  1.08008E+04)); 
daily j-eporter_410_START_TIME6  :=  TARGET_TO_HOST(duration(  1.44000E+04)); 
daily_reporter_410_STOP_TIME6  :=  TARGET_TO_HOST(duration(  1.44008E+04)); 
daily_reporter_410_START_TIME7  :=  TARGET_TO_HOST(duration(  1.80000E+O4)); 
daily_reporter_410_STOP_TIME7  :=  TARGET_TO_HOST(duration(  1.80008E+04)); 
daily_reporter_410_START_TIME8  :=  TARGET_TO_HOST(duration(  2. 16000E+04)); 
daily_reporter_410_STOP_TIME8  :=  TARGET_TO_HOST(duration(  2.16008E+04)); 
daily_reporter_410_START_TIME9  :=  TARGET_TO_HOST(duration(  2.52000E-K)4)); 
daily_reporter_410_STOP_TIME9  :=  TARGET_TO_HOST(duration(  2.52008E+04)); 
daily_reporter_410_START_TIME10  :=  TARGET_TO_HOST(duration(  2.88000E+04)); 
daily_reporter_410_STOP_TIME10  :=  TARGET_TO_HOST(duration(  2.88008E+04)); 
daily_reporter_410_START_TIMEll  :=  TARGET_TO_HOST(duration(  3.24000E+04)); 
daily_reporter_410_STOP_TIMEll  :=  TARGET_TO_HOST(duration(  3.24008E+04)); 
daily_reporter_410_START_TIME12  :=  TARGET_TO_HOST(duration(  3.60000E+04)); 
daily_reporter_410_STOP_TIME12  :=  TARGET_TO_HOST(duration(  3.60008E+04)); 
daily_reporter_410_START_TIME13  :=  TARGET_TO_HOST(duration(  3.96000E+04)); 
daily_reporter_410_STOP_TIME13  :=  TARGET_TO_HOST(duration(  3.96008E+04)); 
daily_reporter_410_START_TIME14  :=  TARGET_TO_HOST(duration(  4.32000E+04)); 
daily_reporter_410_STOP_TIME14  :=  TARGET_TO_HOST(duration(  4.32008E+04)); 
daily_reporter_410_START_TIME15  :=  TARGET_TO_HOST(duration(  4.68000E+04)); 
daily_reporter_410_STOP_TIME15  :=  TARGET_TO_HOST(duration(  4.68008E+04)); 
daily_reporter_410_START_TIME16  :=  TARGET_TO_HOST(duration(  5.040O0E+O4)); 
daily_reporter_410_STOP_TIME16  :=  TARGET_TO_HOST(duration(  5.04008E+04)); 
daily_reporter_410_START_TIME17  :=  TARGET_TO_HOST(duration(  5.40000E+04)); 
daily_reporter_410_STOP_TIME17  :=  TARGET_TO_HOST(duration(  5.40008E+04)); 
daily_reporter_410_START_TIME18  :=  TARGET_TO_HOST(duration(  5.76000E+04)); 
daily_reporter_410_STOP_TIME18  :=  TARGET_TO_HOST(duration(  5.76008E+04)); 
daily_reporter_410_START_TIME19  :=  TARGET_TO_HOST(duration(6.12000E+04)); 
daily_reporter_410_STOP_TIME19  :=  TARGET_TO_HOST(duration(  6.12008E+04)); 
daily_reporter_410_START_TIME20  :=  TARGET_TO_HOST(duration(  6.48000E+04)); 
daily_reporter_410_STOP_TIME20  :=  TARGET_TO_HOST(duraUon(  6.48008E+04)); 
daily_reporter_410_START_TIME21  :=  TARGET_TO_HOST(duration(  6.84000E+04)); 
daily_reporter_410_STOP_TIME21  ~  TARGET_TO_HOST(duration(  6.84008E+04)); 
daily_reporter_410_START_TIME22  :=  TARGET_TO_HOST(duration(  7.20000E+04)); 
daily_reporter_410_STOP_TIME22  :=  TARGET_TO_HOST(duration(  7.20008E+04)); 
daily_reporter_410_START_TIME23  :=  TARGET_TO_HOST(duration(  7.56000E+04)); 
daily_reporter_410_STOP_TIME23  :=  TARGET_TO_HOST(duration(  7.56008E+O4)); 
daily_reporter_410_START_TIME24  :=  TARGET_TO_HOST(duration(  7.92000E+04)); 
daily_reporter_410_STOP_TIME24  :=  TARGET_TO_HOST(duration(  7.92008E+04)); 
daily_reporter_410_START_TIME25  :=  TARGET_TO_HOST(duration(  8.28000E+04)); 
daily_reporter_410_STOP_TIME25  ?=  TARGET_TO_HOST(duration(  8.28008E+04)); 
daily_reporter_410_START_TIME26  :=  TARGET_TO_HOST(duration(  8.64000E+04)); 
daily_reporter_410_STOP_TIME26  :=  TARGET_TO_HOST(duraUon(  8.64008E+O4)); 
daily_reporter_410_START_TIME27  :=  TARGET_TO_HOST(duration(  9.00000E+04)); 
daily_reporter_410_STOP_TIME27  :=  TARGET_TO_HOST(duration(  9.00008E+04)); 
daily_reporter_410_START_TIME28  :=  TARGET_TO_HOST(duration(  9.36000E+04)); 
daily_reporler_410_STOP_TIME28  :=  TARGET_TO_HOST(duration(  9.36008E+04)); 
daily_reporter_410_START_TIME29  :=  TARGET_TO_HOST(duration(  9.72000E+04)); 
daily_reporter_410_STOP_TIME29  :=  TARGET_TO_HOST(duration(  9.72008E+04)); 
daily_reporter_410_START_TIME30  :=  TARGET_TO_HOST(duraUon(  1.O080OE+O5)); 
daily_reporter_410_STOP_TIME30  :=  TARGET_TO_HOST(duraUon(  1.00801E+05)); 
daily_reporter_410_START_TIME31  :=  TARGET_TO_HOST(duration(  1.04400E+05)); 
daily_reporter_410_STOP_TIME31  :=  TARGET_TO_HOST(duraUon(  1.04401E+05)); 
START(schedule_timer); 
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loop 
delay(daily_reporter_410_START_TIMEl  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIMEl  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FPvOM_ALL_TIMERS(HOST_DURATION(schedme_timer)- 
daily_reporter_4 1 0_STOP_TIME  1 ) ; 
end  if; 
exit  when  done; 

delay(monthly_reporter_601_START_TIME2  -  HOST_DURATION(schedule_timer)); 
monthly_reporter_60 1_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  monthly_reporter_601_STOP_TIME2  then 
PUT_LrNE(''timing  error  from  operator  monthly_reporter_601"); 

SUBTRACT_HOST_TIME_FPvOM_ALL_TIMERS(HOST_DURATION(schedme_timer)- 
monthly_reporter_60  l_STOP_TIME2); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME3  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME3  then 

PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTPJVCT_HOST_TIME_F^OM_ALL_TIMERS(HOST_DUPvATION(schedide_timer)- 
daily_reporter_4 1 0_STOP_TIME3 ) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME4  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME4  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FllOM_ALL_TIMERS(HOST_DUPvATION(schedme_timer)- 
daily_reporter_410_STOP_TIME4); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME5  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  dany_reporter_410_STOP_TTME5  then 
PUT_LINE(''timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FTlOM_ALL_TIMERS(HOST_DURATION(schediUe_timer) 
daily_reporter_410_STOP_TIME5); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME6  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME6  then 

PUT_LINE(,,timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_4 10_STOP_TIME6); 
end  if; 
exit  when  done; 

delay (daily_reporter_410_START_TIME7  -  HOST_DURATION(schedule_timer)); 
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daily_reporter_4 10DRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME7  then 
PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTPJVCT_HOST_TIME_FPvOM_ALL_TD\4ERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 10_STOP_TIME7); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TTME8  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1 ODRI  VER; 

if  HOSTDURATION(scheduletimer)  >  daily_reporter_410_STOP_TIME8  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TDVlE_FROM_ALL_TIMERS(HOST_DUPvATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME8) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME9  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME9  then 

PUTLINEC'timing  error  from  operator  daily_reporter_410"), 

SUBTPvACT_HOST_TIME_FROM_ALL_TiMERS(HOST_DUPvATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME9); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME10  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME10  then 

PUT_LINE(" timing  error  from  operator  daily_reporter_410"); 

SUBTP^CT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_410_STOP_TIME10); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIMEl  1  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIMEl  1  then 
PUT_LrNE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_rTlOM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_410_STOP_TIMEl  1); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME12  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME12  then 

PUTLINEC'timing  error  from  operator  daily_reporter_410"), 

SUBTPvACT_HOST_TIME_FTlOM_ALL_TIMERS(HOST_DUPJVTION(schedule_timer) 
daily_reporter_4 10_STOP_TIME12); 
end  if; 
exit  when  done; 

delay(daily_reporter_4 1 0_START_TIME  1 3  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410  STOP_TIME13  then 
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PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME  1 3 ) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME14  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME14  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME  14); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME15  -  HOST_DURATION(schedule_Umer)); 
daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME15  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedme_timer)- 
daily_reporter_4 10_STOP_TIME1 5); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME16  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME16  then 

PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedme_timer)- 
daily_reporter_410_STOP_TIME16); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME17  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10_DRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME17  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_410_STOP_TIME17); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME18  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME18  then 

PUTLINEC'timing  error  from  operator  daily_reporter_410"); 

SUBTP^CT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_4 1 0_STOP_TIME  1 8) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME19  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME19  then 
PUTLINEC'timing  error  from  operator  daily_reporter_410"), 
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SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME  19); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME20  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1 ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME20  then 
PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FTlOM_ALL_TIMERS(HOST_DUPJ^TION(schedme_tiiner)- 
daily_reporter_410_STOP_TIME20); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME21  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME21  then 
PUT_LrNE("tiniing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 10_STOP_TIME2 1); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME22  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME22  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_rTlOM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 10_STOP_TIME22); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME23  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME23  then 
PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME23 ); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME24  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME24  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_rTlOM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_4 1 0_STOP_TIME24) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME25  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME25  then 
PUT_LINE(" timing  error  from  operator  daily _reporter_4 10"), 

SUBTRACT_HOST_TIME_rTlOM_ALL_TrMERS(HOST_DURATION(schedule_timer) 
daily_reporter_4 1 0_STOP_TIME25); 
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end  if; 

exit  when  done; 

delay(daily_reporter_410_START_TIME26  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10DRIVER; 

if  HOSTDURATION(scheduletimer)  >  daily_reporter_410_STOP_TIME26  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 10_STOP_TIME26); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME27  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10_DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME27  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 1 0_STOP_TIME27) ; 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME28  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1 ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME28  then 
PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTPvACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedide_timer)- 
daily_reporter_410_STOP_TIME28); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME29  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME29  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTP^CT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer)- 
daily_reporter_4 10_STOP_TIME29); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME30  -  HOST_DURATION(schedule_timer)); 
daily_reporter_4 1  ODRI  VER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME30  then 
PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schedule_timer) 
daily_reporter_4 10_STOP_TIME30); 
end  if; 
exit  when  done; 

delay(daily_reporter_410_START_TIME31  -  HOST_DURATION(schedule_timer)); 

daily_reporter_4 10DRIVER; 

if  HOST_DURATION(schedule_timer)  >  daily_reporter_410_STOP_TIME31  then 

PUT_LINE("timing  error  from  operator  daily_reporter_410"); 

SUBTRACT_HOST_TIME_FROM_ALL_TIMERS(HOST_DURATION(schediUe_timer) 
daily_reporter_410_STOP_TIME3 1); 
end  if; 
exit  when  done; 
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delay(PERIOD  -  HOST_DURATION(schedule_timer)); 
RESET(schedule_timer); 
end  loop; 
end  STATIC_SCHEDULE_TYPE; 

procedure  START_STATIC_SCHEDULE  is 
begin 

STATIC_SCHEDULE.  START; 
end  START_STATIC_SCHEDULE; 

end  fuel_subsystem_l_STATIC_SCHEDULERS; 


with  FUEL_SUBSYSTEM_1_STATIC_SCHEDULERS;  use 
FUEL_SUBSYSTEM_1_STATIC_SCHEDULERS; 

with  FUEL_SUBSYSTEM_1_DYNAMIC_SCHEDULERS;  use 
FUEL_SUBSYSTEM_1_DYNAMIC_SCHEDULERS; 

with  CAPS_HARDWARE_MODEL;  use  CAPS_HARDWARE_MODEL; 
procedure  FUEL_SUBSYSTEM_1  is 
begin 

inithardwaremodel ; 

startstaticschedule; 

startdynamicschedule; 
end  FUEL  SUBSYSTEM  1; 
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—  File:  fuel_subsystem.gui_other_issue_12.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  this  package  simulates  the  interface  that  allows  a  petroleum 

specialist  to  manually  input  parameters  required  by  Army 
Regulation  7 1 0-2  for  all  fuel  issues  other  than  bulk 
issues.  These  other  issues  include  fuel  issues  made  directly 
into  or  specifically  identifiable  to  a  consuming  end  item. 
An  example  of  this  type  of  issue  is  to  a  vehicle  or  a  M2 
burner  unit.  The  petroleum  specialist  enters  the  type  of 
fuel  issued,  quantity  in  gallons,  the  receiving  vehicle 
bumper  number/equipment  name,  the  receiving  unit,  and  the 
name/rank  of  the  receiver. 


with  text_string_pkg;  use  text_string_pkg; 

package  gui_other_issue_12_pkg  is 

procedure  gui_other_issue_12( 
eq_iss_unit:  out  text_string; 
eq_iss_name:  out  text_string; 
eq_iss_fuel_type:  out  integer; 
eq_iss_id:  out  textstring; 
eq_iss_qty:  out  integer ); 
end  gui_other_issue_12_pkg; 

package  body  gui_other_issue_12_pkg  is 

procedure  gui_other_issue_12( 
eq_iss_unit:  out  text_string; 
eq_iss_name:  out  textstring; 
eqjssfueltype:  out  integer; 
eqjssid:  out  textstring; 
eq_iss_qty:  out  integer  )  is 

begin 

null;  ~  the  interface  would  be  implemented  here 

end  gui_other_issue_12; 

end  gui_other_issue_12_pkg; 
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—  File:  fuel_subsystem.gui_fuel_on_hand_124.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  simulates  the  interface  that  displays  the 

current  fuel  totals  in  gallons  that  are  stored  and  available 
for  issue.  This  interface  is  available  to  both  the  using 
petroleum  specialist  and  accountable  officer. 


package  gui_fuel_on_hand_124_pkg  is 

procedure  gui_fuel_on_hand_124( 
dieselqtyavailable:  in  integer; 
mogasqtyavailable:  in  integer; 
jet_qty_available:  in  integer ); 
end  gui_fuel_on_hand_124_pkg; 

package  body  gui_fuel_on_hand_124_pkg  is 

procedure  gui _fuel_on_hand_124( 
dieselqtyavailable:  in  integer; 
mogasqtyavailable:  in  integer; 
jetqtyavailable:  in  integer  )  is 

begin 

null;  —  the  interface  would  be  implemented  here 

end  gui_fuel_on_hand_124; 

end  gui_fuel_on_hand_124_pkg; 
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—  File:  fuel_subsystem.gui_acc_officer_179.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  simulates  the  interface  for  the  accountable 

officer  to  view  the  monthly  fuel  report. 


package  gui_acc_officer_179_pkg  is 

procedure  gui_acc_officer_179( 

tolerancejet:  in  boolean; 

tolerancemg:  in  boolean; 

tolerancedf:  in  boolean ); 

end  gui_acc_officer_179_pkg; 

package  body  gui_acc_officer_179_pkg  is 

procedure  guiaccofficerl  79( 
tolerancejet:  in  boolean; 
tolerancemg:  in  boolean; 
tolerancedf:  in  boolean  )  is 

begin 

null;  ~  the  interface  would  be  implemented  here 

end  gui_acc_officer_179; 

end  gui_acc_officer_179_pkg; 
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—  File:  fuel_subsystem.bulk_rcpt_processor_198.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  serves  as  a  preprocessor.  Insures  the  bulk 

receipt  input  parameters  of  type  of  fuel  and  quantity 
arrive  to  be  processed  at  the  same  time  by  using  a  by  all 
triggering  constraint.  Arrival  of  both  parameters  cause 
an  enable  parameter  to  be  generated  indicating  that  the 
bulk  receipt  parameters  are  present  and  ready  to  be 
processed  by  the  receipt  processor. 


package  bulk_rcpt_processbr_198_pkg  is 

procedure  bulk_rcpt_processor_198( 
bulk_rcpt_fuel_type:  in  integer; 
bulk_rcpt_qty:  in  integer; 
othrcptenable:  in  out  boolean; 
bulkrcptenable:  out  boolean ); 
end  bulk_rcpt_processor_198_pkg; 

package  body  bulk_rcpt_processor_198_pkg  is 

procedure  bulk_rcpt_processor_198( 
bulkrcptfueltype:  in  integer; 
bulkrcptqty:  in  integer; 
othrcptenable:  in  out  boolean; 
bulkrcptenable:  out  boolean  )  is 

begin 

~  type  of  fuel  and  quantity  parameters  are  present  for  processing 

bulkrcptenable  :=  True; 

--  insure  other  enable  is  deactivated 

othrcptenable  :=  False; 
end  bulk_rcpt_processor_198; 
end  bulk_rcpt_processor_198_pkg; 
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—  File:  fuel_subsystem.oth_rcpt_processor_207.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  is  a  preprocessor.  Insures  the  other  receipt 

input  parameters  of  fuel  type  and  quantity  arrive  to  be 
processed  at  the  same  time  using  a  by  all  triggering 
constraint.  Arrival  of  both  parameters  cause  an  enable 
parameter  to  be  generated  indicating  that  the  other  receipt 
parameters  are  present  and  ready  to  be  processed  by  the 
receipt  processor. 


package  oth_rcpt_processor_207_pkg  is 

procedure  oth_rcpt_processor_207( 
othrcptqty:  in  integer; 
othrcpt  fueltype:  in  integer; 
bulkrcptenable:  in  out  boolean; 
othrcptenable:  out  boolean ); 
end  oth_rcpt_processor_207_pkg; 

package  body  oth_rcpt_processor_207_pkg  is 

procedure  oth_rcptjprocessor_207( 
oth_rcpt_qty:  in  integer; 
othrcpt  fueltype:  in  integer; 
bulkrcptenable:  in  out  boolean; 
othrcptenable:  out  boolean )  is 

begin 

~  type  of  fuel  and  quantity  parameters  are  present  for  processing 

oth_rcpt_enable  :=  True; 

~  insure  other  enable  is  deactivated 

bulkrcptenable  :=  False; 
end  oth_rcpt_processor_207; 
end  oth_rcpt_processor_207_pkg; 
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—  File:  fuel_subsystem.rcpt_processor_210.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  is  the  processor  of  all  bulk  and  other  fuel 
receipts.  Based  upon  an  enable  signal  and  the  type  of  fuel, 
the  processor  passes  the  received  quantity  of  fuel  to  the 
appropriate  fuel  storage  tank  and  totalizer. 


package  rcpt_processor_210_pkg  is 

procedure  rcpt_processor_210( 
bulkrcptenable:  in  boolean; 
oth_rcpt_enable:  in  boolean; 
bulk_rcpt_fuel_type:  in  integer; 
bulk_rcpt_qty:  in  integer; 
oth_rcpt_fuel_type:  in  integer; 
othrcptqty:  in  integer; 
diesel_rcpt_qty:  out  integer; 
mogasrcptqty:  out  integer; 
jet_rcpt_qty:  out  integer; 
r_df_qty:  out  integer; 
rmgqty:  out  integer; 
rjetqty:  out  integer ); 
end  rcpt_processor_210_pkg; 

package  body  rcpt_processor_210_pkg  is 

diesel:  Constant  Integer  :=  1; 
mogas:  Constant  Integer  :=  2; 
jet:     Constant  Integer  :=  3; 

procedure  rcpt_processor_210( 
bulkrcptenable:  in  boolean; 
othrcptenable:  in  boolean; 
bulkrcpt  fueltype:  in  integer; 
bulkrcptqty:  in  integer; 
othrcptfueltype:  in  integer; 
othrcptqty:  in  integer; 
dieselrcptqty:  out  integer; 
mogas_rcpt_qty:  out  integer; 
jet_rcpt_qty:  out  integer; 
rdfqty:  out  integer; 
rmgqty:  out  integer; 
rjetqty:  out  integer  )  is 

begin 

If  bulkrcptenable  then 

If  bulkrcptfueltype  =  diesel  then 
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rdfqty  :=  bulkrcptqty; 
dieselrcptqty  :=  bulk_rcpt_qty; 
End  if; 

If  bulkrcptfuel  type  =  mogas  then 
rmgqty  :=  bulkrcptqty; 
mogasrcptqty  :=  bulkrcptqty; 

End  if; 

If  bulkrcpt  fueltype  =  jet  then 

rjetqty  :=  bulkrcptqty; 
jet_rcpt_qty  :=  bulk_rcpt_qty; 

End  if; 

End  if; 

If  othrcptenable  then 

If  othrcptfueltype  =  diesel  then 
rdfqty  :=  othrcptqty; 
dieselrcptqty  :=  othrcptqty; 

End  if; 

If  othrcptfueltype  =  mogas  then 
rmgqty  :=  othrcptqty; 
mogasrcptqty  :=  oth_rcpt_qty; 

End  if; 

If  othrcptfueltype  =  jet  then 

rjet_qty  :=  othrcptqty; 
jetrcptqty  :=  oth_rcpt_qty; 

End  if; 

End  if; 

end  rcpt_processor_210; 
end  rcpt_processor_210_pkg; 
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—  File:  fuel_subsystem.df_rcpt_totalizer_274.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  daily  quantity  of  diesel 

fuel  received.  This  package  also  provides  a  hook  for 
future  system  enhancement  such  as  providing  user  views 
of  the  current  daily  total  receipts  of  diesel  fuel 
on  demand. 


package  df_rcpt_totalizer_274_pkg  is 

procedure  df_rcpt_totalizer_274( 
dfrcpttotal:  in  out  integer; 
r_df_qty:  in  integer ); 
end  df_rcpt_totalizer_274_pkg; 

package  body  df_rcpt_totalizer_274_pkg  is 

procedure  df_rcpt_totalizer_274( 
df_rcpt_total:  in  out  integer; 
rdfqty:  in  integer  )  is 


begin 

-  adds  the  new  diesel  receipt  quantity  to  the  daily  diesel  receipt  total 
df_rcpt_total  :=  dfrcpttotal  +  rdfqty; 
end  df_rcpt_totalizer_274; 
end  df_rcpt_totalizer_274_pkg; 
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--  File:  fuel_subsystem.mg_rcpt_totalizer_277.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  is  a  counter  of  the  daily  quantity  of  mogas 
received.  Also  provides  a  hook  for  future  system 
enhancement  such  as  user  views  of  the  current  daily  total 
receipts  of  mogas  on  demand. 


package  mg_rcpt_totalizer_277_pkg  is 

procedure  mg_rcpt_totalizer_277( 
mgrcpttotal:  in  out  integer; 
r_mg_qty:  in  integer ); 
end  mg_rcpt_totalizer_277_pkg; 

package  body  mg_rcpt_totalizer_277_pkg  is 

procedure  mg_rcpt_totalizer_277( 
mgrcpttotal:  in  out  integer; 
rmgqty:  in  integer  )  is 

begin 

—  adds  the  new  mogas  receipt  quantity  to  the  daily  mogas  receipt  total 

mg_rcpt_total  :=  mgrcpttotal  +  r_mg_qty; 
end  mg_rcpt_totalizer_277; 
end  mg_rcpt_totalizer_277_pkg; 
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--  File:  fuel_subsystem.jet_rcpt_totalizer_280.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  is  a  counter  of  the  daily  quantity  of  jet 
fuel  received.  Also  provides  a  hook  for  future  system 
enhancement  such  as  user  views  of  the  current  daily 
total  receipts  of  jet  fuel  on  demand. 

■ 


package  jet_rcpt_totalizer_280_pkg  is 

procedure  jet_rcpt_totalizer_280( 
jetrcpttotal:  in  out  integer; 
rjet_qty:  in  integer ); 
end  jet_rcpt_totalizer_280_pkg; 

package  body  jet_rcpt_totalizer_280_pkg  is 

procedure  jet_rcpt_totalizer_280( 
jetrcpttotal:  in  out  integer; 
rjet_qty:  in  integer  )  is 

begin 

-  adds  the  new  jet  receipt  quantity  to  the  daily  jet  receipt  total 

jet_rcpt_total  :=  jetrcpttotal  +  rjetqty; 

end  jet_rcpt_totalizer_280; 

end  jet_rcpt_totalizer_280_pkg; 
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—  File:  fuel_subsystem.gui_bulk_receipt_3.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
~  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

~  Description:  This  package  simulates  the  interface  that  allows  a  petroleum 
specialist  to  manulally  input  parameters  extracted  from  DD 
Form  1348-1  during  the  receipt  of  bulk  petroleum.  The 
petroleum  specialist  enters  the  type  of  fuel  received, 
quantity  in  gallons,  and  the  document  number  as  required 
by  Army  Regulation  7 1 0-2. 


with  text_string_pkg;  use  text_string_pkg; 

package  gui_bulk_receipt_3_pkg  is 

procedure  gui_bulk_receipt_3( 
bulk_rcpt_fuel_type:  out  integer; 
bulkrcptdocnumber:  out  textstring; 
bulkrcptqty:  out  integer ); 
end  gui_bulk_receipt_3_pkg; 

package  body  gui_bulk_receipt_3_pkg  is 

procedure  gui_bulk_receipt_3( 
bulk_rcpt_fuel_type:  out  integer; 
bulk_rcpt_doc_number:  out  text_string; 
bulkrcptqty:  out  integer  )  is 

begin 

null;  ~  the  interface  would  be  implemented  here 

end  gui_bulk_receipt_3; 

end  gui_bulk_receipt_3_pkg; 
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--  File:  fuel_subsystem.oth_iss_processor_307.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  is  a  preprocessor.  Insures  the  equipment  issue 
input  parameters  of  fuel  type  and  quantity  arrive  to  be 
processed  at  the  same  time  by  using  a  by  all  triggering 
constraint.  Arrival  of  both  parameters  cause  an  enable 
parameter  to  be  generated  indicating  that  the  equipment 
issue  parameters  are  present  and  ready  to  be  processed  by 
the  issue  processor. 


package  oth_iss_processor_307_pkg  is 

procedure  oth_iss_processor_307( 
eq_iss_qty:  in  integer; 
eq_iss_fuel_type:  in  integer; 
bulkissenable:  in  out  boolean; 
othissenable:  out  boolean ); 
end  oth_iss_processor_307_pkg; 

package  body  oth_iss_processor_307_pkg  is 

procedure  oth_iss_processor_307( 
eq_iss_qty:  in  integer; 
eq_iss_fuel_type:  in  integer; 
bulkissenable:  in  out  boolean; 
othissenable:  out  boolean  )  is 

begin 

--  type  of  fuel  and  quantity  parameters  are  present  for  processing 

othissenable  :=  True; 

—  insure  other  enable  is  deactivated 

bulkissenable  :=  False; 
end  oth_iss_processor_307; 
end  oth_iss_processor_307_pkg; 
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—  File:  fuel_subsystem.bulk_iss_processor_310.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  serves  as  a  preprocessor.  Insures  the 

bulk  issue  parameters  of  fuel  type  and  quantity  arrive  to 
be  processed  at  the  same  time  by  using  a  by  all  triggering 
constraint.  Arrival  of  both  parameters  cause  an  enable 
parameter  to  be  generated  indicating  that  the  bulk  issue 
parameters  are  present  and  ready  to  be  processed  by 
the  issue  processor. 


package  bulk_iss_processor_310_pkg  is 

procedure  bulk_iss_processor_3 10( 
bulk_iss_qty:  in  integer; 
bulk_iss_fuel_type:  in  integer; 
othissenable:  in  out  boolean; 
bulkissenable:  out  boolean ); 
end  bulk_iss_processor_310_pkg; 

package  body  bulk_iss_processor_310_pkg  is 

procedure  bulk_iss_processor_310( 
bulkissqty:  in  integer; 
bulk_iss_fuel_type:  in  integer; 
othissenable:  in  out  boolean; 
bulkissenable:  out  boolean )  is 

begin 

—  type  of  fuel  and  quantity  parameters  are  present  for  processing 
bulkissenable  :=  True; 

—  insure  other  enable  is  deactivated 
othissenable  :=  False; 

end  bulk_iss_processor_310; 
end  bulk_iss_processor_3 1 0_pkg; 
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~  File:  fuel_subsystem.iss_processor_323.a 

-  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  is  the  processor  of  all  bulk  and  equipment  fuel 
issues.  Based  upon  an  enable  signal  and  the  type  of  fuel, 
the  processor  passes  the  issued  quantity  of  fuel  to  the 
appropriate  fuel  storage  tank  and  totalizer. 


package  iss_processor_323 _pkg  is 

procedure  iss_processor_323( 
bulkissqty:  in  integer; 
bulk_iss_fuel_type:  in  integer; 
eq_iss_qty:  in  integer; 
eq_iss_fuel_type:  in  integer; 
oth_iss_enable:  in  boolean; 
bulkissenable:  in  boolean; 
jetissqty:  out  integer; 
mogasissqty:  out  integer; 
dieselissqty:  out  integer; 
ijetqty:  out  integer; 
imgqty:  out  integer; 
idfqty:  out  integer  ); 
end  iss_processor_323_pkg; 

package  body  iss_processor_323_pkg  is 

diesel:  Constant  Integer  :=  1; 
mogas:  Constant  Integer  :=  2; 
jet:     Constant  Integer  :=  3; 

procedure  iss_processor_323( 
bulkissqty:  in  integer; 
bulk  issfueltype:  in  integer; 
eq_iss_qty:  in  integer; 
eq_iss  fueltype:  in  integer; 
oth  issenable:  in  boolean; 
bulkissenable:  in  boolean; 
jetissqty:  out  integer; 
mogasissqty:  out  integer; 
dieselissqty:  out  integer; 
ijetqty:  out  integer; 
imgqty:  out  integer; 
i_df_qty:  out  integer  )  is 

begin 

If  bulkissenable  then 

If  bulkissfueltype  =  diesel  then 
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idfqty  :=  bulkissqty; 
dieselissqty  :=  bulkissqty; 
End  if; 

If  bulkissfueltype  =  mogas  then 
imgqty  :=  bulkissqty; 
mogasissqty  :=  bulkissqty; 

End  if; 

If  bulk_iss_fuel_type  =  jet  then 

ijetqty  :=  bulkissqty; 
jet_iss_qty  :=  bulkissqty; 

End  if; 

End  if; 

If  othissenable  then 

If  eq_iss_fuel_type  =  diesel  then 
i_df_qty  :=  eq_iss_qty; 
diesel_iss_qty  :=  eq_iss_qty; 

End  if; 

If  eq_iss_fuel_type  =  mogas  then 
i_mg_qty  :=  eq_iss_qty; 
mogasissqty  :=  eq_iss_qty; 

End  if; 

If  eq_iss_fuel_type  =  jet  then 

ijet_qty  :=  eq_iss_qty; 
jet_iss_qty  :=  eq_iss_qty; 

End  if; 

End  if; 

end  iss_processor_323; 
end  iss_processor_323_pkg; 
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—  File:  fuel_subsystem.jet_iss_totalizer_346.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  daily  quantity  of  jet  fuel 

issued.  Also  provides  a  hook  for  future  system  enhancement 
such  as  user  views  of  the  current  daily  total  issues  of 
jet  fuel  on  demand. 


package  jet_iss_totalizer_346_pkg  is 

procedure  jet_iss_totalizer_346( 
jetisstotal:  in  out  integer; 
ijet_qty:  in  integer ); 
end  jet_iss_totalizer_346_pkg; 

package  body  jet_iss_totalizer_346_pkg  is 

procedure  jet_iss_totalizer_346( 
jet_iss_total:  in  out  integer; 
ijetqty:  in  integer  )  is 

begin 

~  adds  the  new  jet  issue  quantity  to  the  daily  jet  issue  total 

jetisstotal  :=  jetisstotal  +  ijetqty; 
end  jet  iss_totalizer_346; 
end  jet  iss_totalizer_346_pkg; 
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—  File:  fuel_subsystem.mg_iss_totalizer_349.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
~  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  daily  quantity  of  mogas 

issued.  Also  provides  a  hook  for  future  system  enhancement 
such  as  user  views  of  the  current  daily  total  issues  of 
mogas  on  demnand. 


package  mg_iss_totalizer_349_pkg  is 

procedure  mg_iss_totalizer_349( 
mgisstotal:  in  out  integer; 
i_mg_qty:  in  integer  ); 
end  mg_iss_totalizer_349_pkg; 

package  body  mg_iss_totalizer_349_pkg  is 

procedure  mg_iss_totalizer_349( 
mgisstotal:  in  out  integer; 
i_mg_qty:  in  integer  )  is 

begin 

—  adds  the  new  mogas  issue  quantity  to  the  daily  mogas  issue  total 

mgisstotal  :=  mgisstotal  +  i_mg_qty; 
end  mg_iss_totalizer_349; 
end  mg_iss_totalizer_349_pkg; 
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-  File:  fuel_subsystem.df_iss_totalizer_352.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

-  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  daily  quantity  of  diesel 

fuel  issued.  This  package  is  also  a  hook  for  future  system 
enhancement  such  as  providing  user  views  of  the  current 
daily  total  issues  of  diesel  fuel  on  demand. 



package  df_iss_totalizer_352_pkg  is 

procedure  df_iss_totalizer_352( 
dfisstotal:  in  out  integer; 
idfqty:  in  integer ); 
end  df_iss_totalizer_352_pkg; 

package  body  df_iss_totalizer_352_pkg  is 

procedure  df_iss_totalizer_352( 
dfisstotal:  in  out  integer; 
i_df_qty:  in  integer  )  is 

begin 

~  adds  the  new  diesel  issue  quantity  to  the  daily  diesel  issue  total 

dfisstotal  :=  dfisstotal  +  i_df_qty; 
end  df_iss_totalizer_352; 
end  df_iss_totalizer_352_pkg; 
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—  File:  fuel_subsystem.daily_reporter_410.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  provides  a  periodic  operation  that  forwards 

the  daily  total  receipts  and  issues  per  fuel  type  every 
1  hour  in  this  prototype.  The  normal  period  of  this 
operator  would  be  24  hours  in  the  developed  system. 


package  daily_reporter_410_pkg  is 

procedure  daily_reporter_410( 
dfrcpttotal:  in  out  integer; 
mgrcpttotal:  in  out  integer; 
jetrcpttotal:  in  out  integer; 
dfisstotal:  in  out  integer; 

mg iss total :  in  out  integer; 

jet_iss_total:  in  out  integer; 
dailydfrcpttotal:  out  integer; 
daily_mg_rcpt_total:  out  integer; 
dailyjetrcpttotal:  out  integer; 
dailydfisstotal:  out  integer; 
dailymgisstotal:  out  integer; 
daily_jet_iss_total:  out  integer ); 
end  daily_reporter_410_pkg; 

package  body  daily_reporter_410_pkg  is 

procedure  daily_reporter_410( 
dfrcpttotal:  in  out  integer; 
mg_rcpt_total:  in  out  integer; 
jetrcpttotal:  in  out  integer; 
df_iss_total:  in  out  integer; 

mg iss total :  in  out  integer; 

jetisstotal:  in  out  integer; 
dailydfrcpttotal:  out  integer; 
daily_mg_rcpt_total:  out  integer; 
dailyjetrcpttotal:  out  integer; 
dailydfisstotal:  out  integer; 
dailymgisstotal:  out  integer; 
dailyjetisstotal:  out  integer )  is 

begin 

~  forwards  daily  receipt  totals 

dailydfrcpttotal  :=  dfrcpttotal; 
dailymgrcpttotal  :=  mgrcpttotal; 
daily  Jet_rcpt_total  :=  jetrcpttotal; 

~  forwards  daily  issue  totals 
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dailydfisstotal  :=  df_iss_total; 
dailymgisstotal  :=  mgisstotal; 
daily  Jetisstotal  :=  jetisstotal; 

~  reinitialize  daily  counters 

dfrcpttotal  :=  0; 
mgrcpttotal  :=  0; 
jetrcpttotal  :=  0; 
df_iss_total    :=  0; 
mgisstotal    :=  0; 
jetisstotal  :=  0; 

end  daily_reporter_410; 

end  daily_reporter_410_pkg; 
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-  File:  fuel_subsystem.bulk_rcpt_db_table_495.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  IC S3 

--  Date:  February  1998 

-  Description:  This  package  is  designed  to  simulate  the  storage  of  the 

input  parameters  of  a  bulk  fuel  receipt  in  a  relational 
database  table.  The  table  provides  a  historical  audit  trail 
of  all  bulk  fuel  receipts.  Also,  this  package  provides  a 
hook  for  future  system  enhancement  such  as  data  mining 
and  statistical  analysis  applications. 


with  text_string_pkg;  use  text_string_pkg; 

package  bulk_rcpt_db_table_495_pkg  is 

procedure  bulk_rcpt_db_table_495( 
bulkrcptfueljype:  in  integer; 
bulk_rcpt_qty:  in  integer; 
bulk_rcpt_doc_number:  in  textstring ); 
end  bulk_rcpt_db_table_495_pkg; 

package  body  bulk_rcpt_db_table_495_pkg  is 

—  defines  columns  in  relational  datbase  table 

bulkrdbfueltype  :  Integer; 
bulk_r_db_quantity  :  Integer; 
bulk_r_db_doc_num    :  textstring; 

procedure  bulk_rcpt_db_table_495( 
bulk_rcpt_fuel_type:  in  integer; 
bulkrcptqty:  in  integer; 
bulkrcptdocnumber:  in  textstring )  is 

begin 

~  simulates  placing  parameters  in  database  table  columns 

bulkrdbjueltype  :=  bulk_rcpt_fuel_type; 
bulkrdbquantity  :=  bulkrcptqty; 
bulkrdbdocnum  :=  bulkrcptdocnumber; 

end  bulk_rcpt_db_table_495; 

end  bulk_rcpt_db_table_495_pkg; 
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File:  fuel_subsystem.bulk_iss_db_table_498.a 

Author:  Lawrence  A.  Kominiak,  Major,  USA 

Project:  Fuel  Automated  Subsystem  of  ICS3 

Date:  February  1998 

Description:  This  package  is  designed  to  simulate  the  storage  of 
the  input  parameters  of  a  bulk  fuel  issue  in  a  relational 
database  table.  The  table  provides  a  historical  audit  trail 
of  all  bulk  fuel  issues.  The  table  also  provides  a  hook  for 
future  system  enhancements  such  as  data  mining  and 
statistical  analysis  applications. 


with  text_string_pkg;  use  text_string_pkg; 

package  bulk_iss_db_table_498 _pkg  is 

procedure  bulk_iss_db_table_498( 
bulkissfueltype:  in  integer; 
bulkissqty:  in  integer; 
bulkissdocnum:  in  textstring; 
bulkrcvunit:  in  textstring; 
bulkrcvname:  in  textstring ); 
end  bulk_iss_db_table_498_pkg; 

package  body  bulk_iss_db_table_498_pkg  is 

--  defines  columns  in  relational  database  table 


bulk 
bulk 
bulk" 
bulk 
bulk" 


dbfuel  type  :  Integer; 
dbquantity  :  Integer; 
dbdocnum    :  textstring; 
dbunit       :  text_string; 
dbname       :  textstring; 


procedure  bulk_iss_db_table_498( 
bulkissfueltype:  in  integer; 
bulkissqty:  in  integer; 
bulkissdocnum:  in  textstring; 
bulkrcvunit:  in  textstring; 
bulkrcvname:  in  textstring  )  is 

begin 

-  simulates  placing  parameters  in  database  table  columns 

bulk_i_db_fuel_type  :=  bulk_iss_fuel_type; 
bulkidbquantity  :=  bulk_iss_qty; 
bulkidbdocnum  :=  bulkissdocnum; 
bulkidbunit  :=  bulkrcvunit; 
bulkidbname  :=  bulkrcvname; 

end  bulk_iss_db_table_498; 

end  bulk_iss_db_table_498 _pkg; 
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—  File:  fuel_subsystem.other_rcpt_db_table_501.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  designed  to  simulate  the  storage  of  the  input 

parameters  of  all  receipts  other  than  bulk  in  a  relational 
database  table.  The  table  provides  a  historical  audit  trail 
of  all  receipts  other  than  bulk.  The  table  also  provides  a 
hook  for  future  system  enhancements  such  as  data  mining 
and  statistical  analysis  applications. 


with  text_string_pkg;  use  text_string_pkg; 

package  other_rcpt_db_table_501_pkg  is 

procedure  other_rcpt_db_table_501( 
oth_rcpt_fuel_type:  in  integer; 
othrcptqty:  in  integer; 
oth_rcpt_source_id:  in  textstring; 
othrcptsourceunit:  in  textstring ); 
end  other_rcpt_db_table_501_pkg; 

package  body  other_rcpt_db_table_501_pkg  is 

—  defines  columns  in  relational  database  table 

othrdbfueltype    :  Integer; 
othrdbquantity     :  Integer; 
oth_r_db_source_id    :  textstring; 
othrdbsourceunit :  textstring; 

procedure  other_rcpt_db_table_501( 
oth_rcpt_fuel_type:  in  integer; 
oth_rcpt_qty:  in  integer; 
oth_rcpt_source_id:  in  text_string; 
othrcptsourceunit:  in  textstring )  is 

begin 

—  simulates  placing  parameters  in  database  table  columns 

othrdbfueltype  :=  othrcptfueltype; 
oth_r_db_quantity  :=  oth_rcpt_qty; 
othrdbsourceid  :=  othrcptsourceid; 
oth_r_db_source_unit  :=  oth_rcpt_source_unit; 

end  other_rcpt_db_table_501; 

end  other_rcpt_db_table_501_pkg; 
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—  File:  fuel_subsystem.other_iss_db_table_504.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  is  designed  to  simulate  the  storage  of  the  input 

parameters  for  all  fuel  issues  to  equipment  in  a  relational 
database  table.  The  table  provides  a  historical  audit  trail 
of  all  equipment  issues.  The  table  also  provides  a  hook  for 
future  system  enhancement  such  as  data  mining  and 
statistical  analysis  applications. 

with  text_string_pkg;  use  text_string_pkg; 

package  other_iss_db_table_504_pkg  is 

procedure  other_iss_db_table_504( 
eq_iss_fuel_type:  in  integer; 
eq_iss_qty:  in  integer; 
eq_iss_id:  in  textstring; 
eqjssunit:  in  textstring; 
eq_iss_name:  in  textstring ); 
end  other_iss_db_table_504_pkg; 

package  body  other_iss_db_table_504jpkg  is 

-  defines  columns  in  relational  database  table 


oth 
oth 
oth 
oth 
oth 


dbfueltype  :  Integer; 
dbquantity  :  Integer; 
dbid        :  textstring; 
dbunit       :  textstring; 
dbname       :  textstring; 


procedure  other_iss_db_table_504( 
eq_iss_fuel_type:  in  integer; 
eq_iss_qty:  in  integer; 
eq_iss_id:  in  textstring; 
eq_iss_unit:  in  textstring; 
eq_iss_name:  in  textstring )  is 

begin 

-  simulates  placing  parameters  in  database  table  columns 


oth 

oth_ 

oth 

oth 

oth 


dbfueltype  :=  eq_iss_fuel_type; 
_db_quantity  :=  eq_iss_qty; 
_db_id  :=  eq_iss_id; 

dbunit  :=  eq_iss_unit; 

dbname  :=  eq_iss_name; 


end  other  iss_db_table_504; 
end  other_iss_db_table_504_pkg; 
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—  File:  fuel_subsystem.mo_df_rcpt_totalizer_583.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  quantity  of  diesel  fuel 

received  over  the  course  of  the  month.  Also  provides  a 
hook  for  future  system  enhancement  such  as  user  views  of 
the  current  total  receipts  of  diesel  fuel  for  the  month. 


package  mo_df_rcpt_totalizer_583_pkg  is 

procedure  mo_df_rcpt_totalizer_5  8  3  ( 
dailydfrcpttotal:  in  integer; 
morcptdftotal:  in  out  integer ); 
end  mo_df_rcpt_totalizer_583 _pkg; 

package  body  mo_df_rcpt_totalizer_583_pkg  is 

procedure  mo_df_rcpt_totalizer_5  8  3  ( 
daily_df_rcpt_total:  in  integer; 
mo_rcpt_df_total:  in  out  integer )  is 

begin 

-  adds  the  new  daily  diesel  receipt  quantity  to  the  monthly  diesel 
~  receipt  total 

morcptdftotal  :=  mo_rcpt_df_total  +  dailydfrcpttotal; 

end  mo_df_rcpt_totalizer_583; 

end  mo_df_rcpt_totalizer_583_pkg; 
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--  File:  fuel_subsystem.mo_mg_rcpt_totalizer_586.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  is  a  counter  of  the  quantity  of  mogas  received 
over  the  course  of  the  month.  Also  provides  a  hook  for 
future  system  enhancement  such  as  user  views  of  the  current 
total  receipts  of  mogas  for  the  month. 


package  mo_mg_rcpt_totalizer_586_pkg  is 

procedure  mo_mg_rcpt_totalizer_5  86( 
daily_mg_rcpt_total:  in  integer; 
morcptmgtotal:  in  out  integer  ); 
end  mo_mg_rcpt_totalizer_586_pkg; 

package  body  mo_mg_rcpt_totalizer_586_pkg  is 

procedure  mo_mg_rcpt_totalizer_586( 
dailymgrcpttotal:  in  integer; 
morcptmgtotal:  in  out  integer  )  is 

begin 

—  adds  the  new  daily  mogas  receipt  quantity  to  the  monthly  mogas 

—  receipt  total 

mo_rcpt_mg_total  :=  mo_rcpt_mg_total  +  dailymgrcpttotal; 
end  mo_mg_rcpt_totalizer_586; 
end  mo_mg_rcpt_totalizer_586_pkg; 
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—  File:  fuel_subsystem.moJet_rcpt_totalizer_589.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  jet  fuel  received  over  the 

course  of  the  month.  Also  provides  a  hook  for  future  system 
enhancement  such  as  user  views  of  the  current  total  receipts 
of  jet  fuel  for  the  month. 


package  moJet_rcpt_totalizer_589_pkg  is 

procedure  mo  J  et_rcpt_totalizer_5  89( 
dailyjetrcpttotal:  in  integer; 
mo_rcptJet_total:  in  out  integer  ); 
end  mojetrcpt  totalizer_589jpkg; 

package  body  moJet_rcpt_totalizer_589_pkg  is 

procedure  moJet_rcpt_totalizer_589( 
daily_jet_rcpt_total:  in  integer; 
morcptjettotal:  in  out  integer  )  is 

begin 

~  adds  the  new  daily  jet  receipt  quantity  to  the  monthly  jet 
-  receipt  total 

morcptjetjotal  :=  mo_rcptJet_total  +  dailyjetrcpttotal; 

end  moJet_rcpt_totalizer_589; 

end  moJet_rcpt_totalizer_589_pkg; 
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--  File:  fuel_subsystem.mo_df_iss_totalizer_592.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  is  a  counter  of  the  quantity  of  diesel  fuel 
issued  over  the  course  of  the  month.  Also  provides  a  hook 
for  future  system  enhancement  such  as  user  views  of  the 
current  total  issues  of  diesel  fuel  for  the  month. 


package  mo_df_iss_totalizer_592_pkg  is 

procedure  mo_df_iss_totalizer_592( 
mo_iss_df_total:  in  out  integer; 
dailydfisstotal:  in  integer ); 
end  mo_df_iss_totalizer_592_pkg; 

package  body  mo_df_iss_totalizer_592_pkg  is 

procedure  mo_df_iss_totalizer_592( 
moissdftotal:  in  out  integer; 
dailydfisstotal:  in  integer  )  is 

begin 

-  adds  the  new  daily  diesel  issue  quantity  to  the  monthly  diesel 

-  issue  total 

moissdftotal  :=  moissdftotal  +  dailydfisstotal; 
end  mo_df_iss_totalizer_592; 
end  mo_df_iss_totalizer_592jpkg; 
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—  File:  fuel_subsystem.mo_mg_iss_totalizer_595.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  is  a  counter  of  the  quantity  of  mogas  issued 

over  the  course  of  the  month.  Also  provides  a  hook  for 
future  system  enhancement  such  as  user  views  of  the  current 
total  issues  of  mogas  for  the  month. 


package  mo_mg_iss_totalizer_595_pkg  is 

procedure  mo_mg_iss_totalizer_595( 
moissmgtotal:  in  out  integer; 
dailymgisstotal:  in  integer ); 
end  mo_mg_iss_totalizer_595_pkg; 

package  body  mo_mg_iss_totalizer_595_pkg  is 

procedure  mo_mg_iss_totalizer_595( 
moissmgtotal:  in  out  integer; 
dailymgisstotal:  in  integer )  is 

begin 

~  adds  the  new  daily  mogas  issue  quantity  to  the  monthly  mogas 
--  issue  total 

moissmgtotal  :=  moissmgtotal  +  dailymgisstotal; 

end  mo_mg_iss_totalizer_595; 

end  mo_mg_iss_totalizer_595_pkg; 
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File:  fuel_subsystem.mo_jet_iss_totalizer_598.a 

Author:  Lawrence  A.  Kominiak,  Major,  USA 

Project:  Fuel  Automated  Subsystem  of  ICS3 

Date:  February  1998 

Description:  This  package  is  a  counter  of  the  quantity  of  jet  fuel  issued 
over  the  course  of  the  month.  Also  provides  a  hook  for 
future  system  enhancement  such  as  user  views  of  the  current 
total  issues  of  jet  fuel  for  the  month. 


package  moJet_iss_totalizer_598jpkg  is 

procedure  mojetiss  totalizer_598( 
mojssjet  total:  in  out  integer; 
dailyJet_iss_total:  in  integer ); 
end  moJet_iss_totalizer_598_pkg; 

package  body  mojetiss  totalizer_598jpkg  is 

procedure  mojetiss  totalizer_598( 
mojssjet  total:  in  out  integer; 
dailyjetiss  total:  in  integer )  is 

begin 

—  adds  the  new  daily  jet  issue  quantity  to  the  monthly  jet 
~  issue  total 

moissjettotal  :=  mojssjet  total  +  dailyjetisstotal; 

end  mojetiss  totalizer_598; 

end  mojetiss  totalizer_598j)kg; 
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—  File:  fuel_subsystem.gui_other_receipt_6.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

-  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

-  Description:  This  package  simulates  the  interface  that  captures  all  other 

possible  petroleum  receipt  scenarios  i.e.  vehicle/aircraft 
defueling  etc.  The  interface  allows  a  petroleum  specialist 
to  manually  enter  the  type  of  fuel  received,  quantity  in 
gallons,  an  identification  number  from  the  source,  and 
the  source  unit  as  required  by  Army  Regulation  7 1 0-2. 


with  text_string_pkg;  use  text_string_pkg; 

package  gui_other_receipt_6_pkg  is 

procedure  gui_other_receipt_6( 
othrcptqty:  out  integer; 
othrcptsourceunit:  out  textstring; 
othrcptfueltype:  out  integer; 
othrcptsourceid:  out  textstring ); 
end  gui_other_receipt_6_pkg; 

package  body  gui_other_receipt_6_pkg  is 

procedure  gui_other_receipt_6( 
othrcptqty:  out  integer; 
othrcptsourceunit:  out  textstring; 
othrcptfueltype:  out  integer; 
othrcptsourceid:  out  textstring )  is 

begin 

null;  —  the  interface  would  be  implemented  here 

end  gui_other_receipt_6; 

end  gui_other_receipt_6_pkg; 


253 


--  File:  fuel_subsystem.monthly_reporter_601.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

--  Description:  This  package  provides  a  periodic  operation  that  forwards  the 
monthly  total  receipts  and  issues  per  fuel  type  every 
30  hours  in  this  prototype.  The  normal  period  of  this 
operator  would  be  720  hours,  approximately  one  month,  in 
the  developed  system. 


package  monfhly_reporter_601_pkg  is 

procedure  monthly_reporter_601( 
mojssjettotal:  in  out  integer; 
mo  iss_mg_total:  in  out  integer; 
mo  issdftotal:  in  out  integer; 
morcptjettotal:  in  out  integer; 
morcptmgtotal:  in  out  integer; 
morcptdftotal:  in  out  integer; 
monthdf  isstotal:  out  integer; 
monthdfrcpttotal:  out  integer; 
month_mg_iss_total:  out  integer; 
monthmgrcpttotal:  out  integer; 
monthjetrcpttotal:  out  integer; 
monthjetjsstotal:  out  integer ); 
end  monthly_reporter_601_pkg; 

package  body  monthly_reporter_601_pkg  is 

procedure  monthly_reporter_601( 
mo  issjetjotal:  in  out  integer; 
mo  iss_mg_total:  in  out  integer; 
mo_iss_df_total:  in  out  integer; 
mo_rcptJet_total:  in  out  integer; 
morcptmgtotal:  in  out  integer; 
morcptdftotal:  in  out  integer; 
monthdfisstotal:  out  integer; 
monthdfrcpttotal:  out  integer; 
monthmg  isstotal:  out  integer; 
monthmgrcpttotal:  out  integer; 
monthjetrcpttotal:  out  integer; 
monthJet_iss_total:  out  integer  )  is 

begin 

--  forwards  monthly  receipt  totals 

month_df_rcpt_total  :=  morcptdftotal; 
month_mg_rcpt_total  :=  morcptmgtotal; 
monthjetrcpttotal  :=  mo_rcptJet_total; 
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—  forwards  monthly  issue  totals 

monthdfisstotal  :=  moissdftotal; 
month_mg_iss_total  :=  mo_iss_mg_total; 
monthjetisstotal  :=  moissjettotal; 

—  reinitialize  monthly  counters 

morcptdftotal  :=  0; 
morcptmgtotal  :=  0; 
morcptjettotal  :=  0; 
moissdftotal  :=  0; 
moissmgtotal  :=  0; 
mo_issJet_total  :=  0; 

end  monthly_reporter_601 ; 

end  monthly_reporter_601_pkg; 
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—  File:  fuel_subsystem.daily_rcpt_db_table_740.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  is  designed  to  simulate  the  storage  of  the 

daily  total  receipts  per  fuel  type  in  a  relational 
database.  The  table  provides  a  historical  audit  trail. 
The  table  also  provides  a  hook  for  future  system 
enhancements  such  as  data  mining  and  statistical  analysis. 


package  daily_rcpt_db_table_740jpkg  is 

procedure  daily_rcpt_db_table_740( 
daily_df_rcpt_total:  in  integer; 
dailymgrcpttotal:  in  integer; 
dailyjet_rcpt_total:  in  integer ); 
end  daily_rcpt_db_table_740_pkg; 

package  body  daily_rcpt_db_table_740_pkg  is 

—  defines  columns  in  relational  database  table 

daily_r_db_diesel :  Integer; 
dailyrdbmogas  :  Integer; 
dailyrdbjet :  Integer; 

procedure  daily_rcpt_db_table_740( 
dailydfrcpttotal:  in  integer; 
dailymgrcpttotal:  in  integer; 
dailyjetrcpttotal:  in  integer  )  is 

begin 

~  simulates  placing  parameters  in  database  table  columns 

dailyrdbdiesel  :=  dailydfrcpttotal; 
dailyrdbmogas  :=  daily_mg_rcpt_total; 
dailyrdbjet  :=  daily  Jet_rcpt_total; 

end  daily_rcpt_db_table_740; 

end  daily_rcpt_db_table_740_pkg; 
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—  File:  fuel_subsystem.daily_iss_db_table_743.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  is  designed  to  simulate  the  storage  of  the 

total  daily  issues  per  fuel  type  in  a  relational  database. 
The  table  provides  a  historical  audit  trail.  The  table 
also  provides  a  hook  for  future  system  enhancements  such 
as  data  mining  and  statistical  analysis  applications. 


package  daily_iss_db_table_743_pkg  is 

procedure  daily_iss_db_table_743( 
dailydfisstotal:  in  integer; 
dailymgisstotal:  in  integer; 
dailyjet_iss_total:  in  integer ); 
end  daily_iss_db_table_743_pkg; 

package  body  daily_iss_db_table_743_pkg  is 

~  defines  columns  in  relational  database  table 

daily_i_db_diesel :  Integer; 
daily_i_db_mogas  :  Integer; 
daily_i_dbjet :  Integer; 

procedure  daily_iss_db_table_743( 
dailydfisstotal:  in  integer; 
dailymgisstotal:  in  integer; 
dailyjetisstotal:  in  integer )  is 

begin 

~  simulates  placing  parameters  in  database  table  columns 

daily  idbdiesel  :=  dailydfisstotal; 
daily  i_db_mogas  :=  dailymgisstotal; 
daily  idbjet  :=  dailyjetisstotal; 

end  daily  iss_db_table_743; 

end  daily  iss_db_table_743_pkg; 
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--  File:  fuel_subsystem.diesel_addition_836.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  simulates  the  receipt/addition  of  a 
quantity  of  diesel  fuel  to  the  storage  tank. 


package  diesel_addition_836_pkg  is 

procedure  diesel_addition_836( 
diesel_volume:  in  out  integer; 
dieselrcptqty:  in  integer; 
dfqtyonhand:  out  integer ); 
end  diesel_addition_836_pkg; 

package  body  diesel_addition_836_pkg  is 

procedure  diesel_addition_836( 
dieselvolume:  in  out  integer; 
dieselrcptqty:  in  integer; 
dfqryonhand:  out  integer  )  is 

begin 

~  adds  the  received  quantity  of  diesel  fuel  to  the  current  volume 
~  of  diesel  fuel  to  produce  the  new  quantity  of  diesel  fuel  on  hand 

dfqtyonhand  :=  dieselvolume  +  dieselrcptqty; 

-  updates  the  current  volume  of  diesel  fuel  in  storage 

dieselvolume  :=  dieselvolume  +  dieselrcptqty; 

end  diesel_addition_836; 

end  diesel_addition_836_pkg; 
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--  File:  fuel_subsystem.diesel_subtraction_839.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

--  Description:  This  package  simulates  the  issue/subtraction  of  a  quantity 
of  diesel  fuel  from  the  storage  tank. 


package  diesel_subtraction_839_pkg  is 

procedure  diesel_subtraction_839( 
dieselvolume:  in  out  integer; 
diesel_iss_qty:  in  integer; 
df_qty_on_hand:  out  integer ); 
end  diesel_subtraction_839_pkg; 

package  body  diesel_subtraction_839_pkg  is 

procedure  diesel_subtraction_839( 
dieselvolume:  in  out  integer; 
dieselissqty:  in  integer; 
df_qty_on_hand:  out  integer  )  is 

begin 

—  subtracts  the  issued  quantity  of  diesel  fuel  from  the  current  volume 

—  of  diesel  fuel  to  produce  the  new  quantity  of  diesel  fuel  on  hand 

df_qty_on_hand  :=  dieselvolume  -  diesel_iss_qty; 
~  updates  the  current  volume  of  diesel  fuel  in  storage 
diesel_volume  :=  diesel_volume  -  dieselissqty; 
end  diesel_subtraction_839; 
end  diesel_subtraction_839_pkg; 
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--  File:  fuel_subsystem.diesel_gage_854.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  IC S3 

--  Date:  February  1998 

--  Description:  This  package  simulates  gaging  the  diesel  storage  tank 
to  determine  the  quantity  of  fuel  on  hand.  Note:  this 
package  can  be  further  enhanced  to  reflect  the  effects  of 
volume  changes  due  to  environmental  factors  such  as 
temperature  and  evaporation. 


package  diesel_gage_854_pkg  is 

procedure  diesel_gage_854( 
dfqtyonhand:  in  integer; 
dieselqtyavailable:  out  integer ); 
end  diesel_gage_854_pkg; 

package  body  diesel_gage_854_pkg  is 

procedure  diesel_gage_854( 
dfqtyonhand:  in  integer; 
diesel_qty_available:  out  integer  )  is 

begin 

-  simulates  gaging  the  diesel  tank 

~  if  environmental  factors  were  to  be  included,  the  dfqtyonhand 
~  would  be  increased  or  decreased  accordingly  and  hence  reflected 

—  in  the  quantity  available 

dieselqtyavailable  :=  dfqtyonhand; 
end  diesel_gage_854; 
end  diesel_gage_854jpkg; 


260 


--  File:  fuel_subsystem.mogas_addition_888.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  simulates  the  receipt/addition  of  a  quantity  of 
mogas  to  the  storage  tank. 


package  mogas_addition_888_pkg  is 

procedure  mogas_addition_888( 
mogasrcptqty:  in  integer; 
mogasvolume:  in  out  integer; 
mgqtyonhand:  out  integer ); 
end  mogas_addition_888_pkg; 

package  body  mogas_addition_888_pkg  is 


procedure  mogas_addition_888( 
mogasrcptqty:  in  integer; 
mogasvolume:  in  out  integer; 
mg_qty_on_hand:  out  integer )  is 

begin 

—  adds  the  received  quantity  of  mogas  to  the  current  volume  of 

—  mogas  to  produce  the  new  quantity  of  mogas  on  hand 

mgqtyonhand  :=  mogasvolume  +  mogasrcptqty; 
~  updates  the  current  volume  of  mogas  in  storage 
mogasvolume  :=  mogasvolume  +  mogas_rcpt_qty; 
end  mogas_addition_888; 
end  mogas_addition_888jpkg; 
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—  File:  fuel_subsystem.mogas_subtraction_891.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  simulates  the  issue/subtraction  of  a  quantity  of 

mogas  from  the  storage  tank. 

I 

package  mogas_subtraction_891_pkg  is 

procedure  mogas_subtraction_891( 
mogasissqty:  in  integer; 
mogasvolume:  in  out  integer; 
mgqtyonhand:  out  integer  ); 
end  mogas_subtraction_891_pkg; 

package  body  mogas_subtraction_891_pkg  is 

procedure  mogas_subtraction_891( 

mogasissqty:  in  integer; 

mogasvolume:  in  out  integer; 

mg_qty_on_hand:  out  integer  )  is 
begin 

~  subtracts  the  issued  quantity  of  mogas  from  the  current  volume 
-  of  mogas  to  produce  the  new  quantity  of  mogas  on  hand 

mgqtyonhand  :=  mogasvolume  -  mogasissqty; 

~  updates  the  current  volume  of  mogas  in  storage 

mogasvolume  :=  mogasvolume  -  mogasissqty; 

end  mogas_subtraction_891; 

end  mogas_subtraction_891_pkg; 
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--  File:  fuel_subsystem.mogas_gage_894.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  IC S3 

--  Date:  February  1998 

--  Description:  This  package  simulates  the  gaging  of  the  mogas  storage  tank 
to  determine  the  quantity  of  fuel  on  hand.  Note:  this  package 
can  be  further  enhanced  to  reflect  the  effects  of  volume 
changes  due  to  environmental  factors  such  as  temperature 
and  evaporation. 


package  mogas_gage_894_pkg  is 

procedure  mogas_gage_894( 
mgqtyonhand:  in  integer; 
mogas_qty_available:  out  integer ); 
end  mogas_gage_894_pkg; 

package  body  mogas_gage_894_pkg  is 

procedure  mogas_gage_894( 
mg_qty_on_hand:  in  integer; 
mogasqtyavailable:  out  integer )  is 

begin 

~  simulates  gaging  the  mogas  tank 

—  if  environmental  factors  were  included,  the  mgqtyonhand  would 
--  be  increased  or  decreased  accordingly  and  hence  reflected  in  the 
~  quantity  available 

mogasqtyavailable  :=  mg_qty_on_hand; 

end  mogas_gage_894; 

end  mogas_gage_894  _pkg; 
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--  File:  fuel_subsystem.gui_bulk_issue_9.a 

--  Author:  Lawrence  A.  Kominiak,  Major,  USA 

--  Project:  Fuel  Automated  Subsystem  of  ICS3 

--  Date:  February  1998 

—  Description:  This  package  simulates  the  interface  that  allows  a  petroleum 
specialist  to  manually  input  parameters  extracted  from 
DA  Form  2765-1  during  issue  of  bulk  petroleum.  The  petroleum 
specialist  enters  the  type  of  fuel  issued,  quantity  in 
gallons,  document  number  of  the  issue,  the  receiving  unit, 
and  the  name/rank  of  the  receiver  as  required  by 
Army  Regulation  710-2. 


with  text_string_pkg;  use  text_string_pkg; 

package  gui_bulk_issue_9_pkg  is 

procedure  gui_bulk_issue_9( 
bulkrcvunit:  out  text_string; 
bulk_iss_doc_num:  out  textstring; 
bulk_rcv_name:  out  textstring; 
bulkissqty:  out  integer; 
bulkissfueltype:  out  integer ); 
end  gui_bulk_issue_9_pkg; 

package  body  gui_bulk_issue_9_pkg  is 

procedure  gui_bulk_issue_9( 
bulkrcvunit:  out  text_string; 
bulkissdocnum:  out  textstring; 
bulkrcvname:  out  textstring; 
bulkissqty:  out  integer; 
bulkissfueltype:  out  integer )  is 

begin 

null;  ~  the  interface  would  be  implemented  here 

end  gui_bulk_issue_9; 

end  gui_bulk_issue_9_pkg; 
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—  File:  fuel_subsystem.jet_addition_911.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  simulates  the  receipt/addition  of  a  quantity  of 

jet  fuel  to  the  storage  tank. 


package  jet_addition_91  l_pkg  is 

procedure  jet_addition_91 1( 
jetvolume:  in  out  integer; 
jet_rcpt_qty:  in  integer; 
jet_qty_on_hand:  out  integer ); 
end  jet_addition_91  l_pkg; 

package  body  jet_addition_91  l_pkg  is 

procedure  jet_addition_91 1( 
jetvolume:  in  out  integer; 
jetrcptqty:  in  integer; 
jet_qty_on_hand:  out  integer  )  is 

begin 

—  adds  the  received  quantity  of  jet  fuel  to  the  current  volume 

—  of  jet  fuel  to  produce  the  new  quantity  of  jet  fuel  on  hand 

jetqtyonhand  :=  jetvolume  +  jetrcptqty; 

—  updates  the  current  volume  of  jet  fuel  in  storage 
jetvolume  :=  jetvolume  +  jet_rcpt_qty; 

end  jet_addition_91 1 ; 
end  jet_addition_9 1 1  _pkg; 
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—  File:  fuel_subsystem.jet_subtraction_914.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  simulates  the  issue/subtraction  of  a  quantity  of 

jet  fuel  from  the  storage  tank. 

I 

package  j  et_subtraction_9 1 4_pkg  is  i 

procedure  jet_subtraction_9 1 4( 
jetvolume:  in  out  integer; 
jetissqty:  in  integer; 
jetqtyonhand:  out  integer ); 
end  jet_subtraction_9 1 4_pkg; 

package  body  jet_subtraction_914_pkg  is 

procedure  jet_subtraction_9 1 4( 
jetvolume:  in  out  integer; 
jetissqty:  in  integer; 
jetqtyonhand:  out  integer  )  is 

begin 

-  subtracts  the  issued  quantity  of  jet  fuel  from  the  current  volume 

-  of  jet  fuel  to  produce  the  new  quantity  of  jet  fuel  on  hand 

jetqtyonhand  :=  jetvolume  -  jetissqty; 
~  updates  the  current  volume  of  jet  fuel  in  storage 
jetvolume  :=  jetvolume  -  jetissqty; 
end  jet_subtraction_91 4; 
end  jet_subtraction_9 1 4_pkg; 
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—  File:  fuel_subsystem.jet_gage_917.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

~  Description:  This  package  simulates  gaging  the  jet  fuel  storage  tank  to 
determine  the  quantity  of  fuel  on  hand.  Note:  this  package  can 
be  further  enhanced  to  reflect  the  effects  of  volume  changes 
due  to  environmental  factors  such  as  temperature  and 
evaporation. 


package  jet_gage_9 1 7_pkg  is 

procedure  jet_gage_91 7( 
jet_qty_on_hand:  in  integer; 
jet_qty_available:  out  integer ); 
end  j  et_gage_9 1 7_pkg; 

package  body  jet_gage_917_pkg  is 

procedure  j  et_gage_9 1 7( 
jet_qty_on_hand:  in  integer; 
jetqtyavailable:  out  integer )  is 

begin 

--  simulates  gaging  the  jet  fuel  tank 

~  if  environmental  factors  were  to  be  included,  the  jetqtyonhand 

—  would  be  increased  or  decreased  accordingly  and  hence  reflected  in 

—  the  quantity  available 

jet_qty_available  :=  jet_qty_on_hand; 
endjet_gage_917; 
end  j  et_gage_9 1 7_pkg; 
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—  File:  fuel_subsystem.diesel_iss_acct_proc_934.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  sets  the  total  monthly  diesel  issues  for 

processing. 


package  diesel_iss_acct_proc_934_pkg  is 

procedure  diesel_iss_acct_proc_934( 
monthdfisstotal:  in  integer; 
totalmodfiss:  out  integer ); 
end  diesel_iss_acct_proc_934_pkg; 

package  body  diesel_iss_acct_proc_934_pkg  is 

procedure  diesel_iss_acct_proc_93  4( 
monthdfisstotal:  in  integer; 
totalmodfiss:  out  integer  )  is 


begin 

totalmodfiss  :=  month_df_iss_total; 
end  diesel_iss_acct_proc_934; 
end  diesel_iss_acct_proc_934_pkg; 
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—  File:  fuel_subsystem.diesel_rcpt_acct_proc_937.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  sets  the  total  monthly  diesel  receipts  for 

processing. 


package  diesel_rcpt_acct_proc_937_pkg  is 


procedure  diesel_rcpt_acct_proc_93  7( 
monthdfrcpttotal:  in  integer; 
total_mo_df_rcpt:  out  integer ); 
end  diesel_rcpt_acct_proc_937_pkg; 

package  body  diesel_rcpt_acct_proc_937_pkg  is 

procedure  diesel_rcpt_acct_proc_93  7( 
monthdfrcpttotal:  in  integer; 
total_mo_df_rcpt:  out  integer  )  is 

begin 

totalmodfrcpt  :=  monthdfrcpttotal; 

end  diesel_rcpt_acct_proc_937; 

end  diesel_rcpt_acct_proc_937_pkg; 
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--  File:  fuel_subsystem.mogas_iss_acct_proc_940.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  sets  the  total  monthly  mogas  issues  for 
processing. 


package  mogas_iss_acct_proc_940_pkg  is 

procedure  mogas_iss_acct_proc_940( 
monthmgisstotal:  in  integer; 
total_mo_mg_iss:  out  integer ); 
end  mogas_iss_acct_proc_940_pkg; 

package  body  mogas_iss_acct_proc_940_pkg  is 

procedure  mogas_iss_acct_proc_940( 
month_mg_iss_total:  in  integer; 
totalmomgiss:  out  integer  )  is 

begin 

totalmomgiss  :-  monthmgisstotal; 

end  mogas_iss_acct_proc_940; 

end  mogas_iss_acct_proc_940_pkg; 
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~  File:  fuel_subsystem.mogas_rcpt_acct_proc_943.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  sets  the  total  monthly  mogas  receipts  for 

processing. 


package  mogas_rcpt_acct_proc_943_pkg  is 

procedure  mogas_rcpt_acct_proc_943( 
monthmgrcpttotal:  in  integer; 
totalmomgrcpt:  out  integer ); 
end  mogas_rcpt_acctjproc_943_pkg; 

package  body  mogas_rcpt_acct_proc_943_pkg  is 

procedure  mogas_rcpt_acct_proc_943( 
monthmgrcpttotal:  in  integer; 
totalmomgrcpt:  out  integer )  is 

begin 

total_mo_mg_rcpt  :=  month_mg_rcpt_total; 

end  mogas_rcpt_acct_proc_943; 

end  mogas_rcpt_acct_proc_943_pkg; 
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File:  fuelsubsystem.jet  iss_acct_proc_946.a 
Author:  Lawrence  A.  Kominiak,  Major,  USA 
Project:  Fuel  Automated  Subsystem  of  ICS3 
Date:  February  1998 

Description:  This  package  sets  the  total  monthly  jet  issues  for 
processing. 


package  jet_iss_acct_proc_946_pkg  is 

procedure  jet  iss_acct_proc_946( 
monthjet  isstotal:  in  integer; 
totalmojet  iss:  out  integer ); 
end  jet  iss_acct_proc_946_pkg; 

package  body  jet_iss_acct_proc_946_pkg  is 

procedure  jet_iss_acct_proc_946( 
monthjetjsstotal:  in  integer; 
totalmojetiss:  out  integer  )  is 

begin 

total_moJet  iss  :=  monthjetisstotal; 

end  jet  iss_acct_proc_946; 

end  jet  iss_acct_proc_946_pkg; 
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--  File:  fuel_subsystem.jet_rcpt_acct_proc_949.a 
--  Author:  Lawrence  A.  Kominiak,  Major,  USA 
--  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

--  Description:  This  package  sets  the  total  monthly  jet  receipts  for 
processing. 


package  jet_rcpt_acct_proc_949_pkg  is 

procedure  jet_rcpt_acct_proc_949( 
monthjetrcpttotal:  in  integer; 
totalmojetrcpt:  out  integer ); 
end  jet_rcpt_acct_proc_949_pkg; 

package  body  jet_rcpt_acct_proc_949_pkg  is 

procedure  jet_rcpt_acct_proc_949( 
monthjetrcpttotal:  in  integer; 
totalmojetrcpt:  out  integer  )  is 

begin 

totalmojetrcpt  :=  monthjetrcpttotal; 

end  jet_rcpt_acct_proc_949; 

end  jet_rcpt_acct_proc_949_pkg; 
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—  File:  fuel_subsystem.df_acct_calc_952.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  determines  whether  diesel  fuel 

accountability  is  within  tolerance. 


package  df_acct_calc_952_pkg  is 

procedure  df_acct_calc_952( 
totalmodfiss:  in  integer; 
total_mo_df_rcpt:  in  integer; 
openinginvdiesel:  in  out  integer; 
diesel_qty_available:  in  integer; 
tolerancedf:  out  boolean ); 
end  df_acct_calc_952_pkg; 

package  body  df_acct_calc_952_pkg  is 

dfclosingbookbal :  Integer; 
dfmogainloss  :  Integer; 
df_allow_gain_loss  :  Integer; 

procedure  df_acct_calc_952( 
totalmodfiss:  in  integer; 
totalmodfrcpt:  in  integer; 
openinginvdiesel:  in  out  integer; 
diesel_qty_available:  in  integer; 
tolerancedf:  out  boolean  )  is 

begin 

~  determine  if  monthly  diesel  accounting  is  within  tolerance 

dfclosingbookbal  :=  openinginvdiesel  +  totalmodfrcpt  -  totalmodfiss; 
df_mo_gain_loss  :=  dfclosingbookbal  -  dieselqtyavailable; 
dfallowgainloss  :=  (openinginvdiesel  +  totalmodfrcpt)  *  5  / 1000; 

If  abs(df_mo_gain_loss)  >  abs(df_allow_gain_loss)  then 

tolerancedf  :=  False; 
else 

tolerancedf  :=  True; 
End  if; 

-  adjust  opening  monthly  inventory  to  the  physical  quantity  on  hand 

openinginvdiesel  :=  diesel_qty_available; 

end  df_acct_calc_952; 

end  df_acct_calc_952_pkg; 

274 


—  File:  fuel_subsystem.mg_acct_calc_955.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  determines  whether  mogas  fuel  accountability  is 

within  tolerance. 


package  mg_acct_calc_955_pkg  is 

procedure  mg_acct_calc_955( 
totalmomgiss:  in  integer; 
totalmomgrcpt:  in  integer; 
openinginvmogas:  in  out  integer; 
mogas_qty_available:  in  integer; 
tolerancemg:  out  boolean ); 
end  mg_acct_calc_955  _pkg; 

package  body  mg_acct_calc_955_pkg  is 

mgclosingbookbal :  Integer; 
mgmogainloss  :  Integer; 
mg_allow_gain_loss  :  Integer; 

procedure  mg_acct_calc_955( 
totalmomgiss:  in  integer; 
totalmomgrcpt:  in  integer; 
opening_inv_mogas:  in  out  integer; 
mogas_qty_available:  in  integer; 
tolerancemg:  out  boolean )  is 

begin 

-  determine  if  monthly  mogas  accounting  is  within  tolerance 

mg_closing_book_bal  :=  openinginvmogas  +  totalmomgrcpt  -  totalmomgiss; 
mg_mo_gain_loss  :=  mg_closing_book_bal  -  mogasqtyavailable; 
mg_allow_gain_loss  :=  (opening_inv_mogas  +  total_mo_mg_rcpt)  / 1 00; 

If  abs(mg_mo_gain_loss)  >  abs(mg_allow_gain_loss)  then 

tolerancejmg  :=  False; 
else 

tolerancemg  :=  True; 
End  if; 

--  adjust  opening  monthly  inventory  to  the  physical  quantity  on  hand 

openinginvmogas  :=  mogas_qty_available; 

end  mg_acct_calc_955; 

end  mg_acct_calc_955_pkg; 
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--  File:  fuel_subsystem.jet_acct_calc_958.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  ICS3 
--  Date:  February  1998 

—  Description:  This  package  determines  whether  jet  fuel  accountability  is 

within  tolerance. 


package  jet_acct_calc_95  8  jpkg  is 

procedure  jet_acct_calc_958( 
total_moJet_iss:  in  integer; 
totalmojetrcpt:  in  integer; 
openinginvjet:  in  out  integer; 
jet_qty_available:  in  integer; 
tolerancejet:  out  boolean ); 
end  jet_acct_calc_958_pkg; 

package  body  jet_acct_calc_958_pkg  is 

jetclosingbookbal :  Integer; 
jet_mo_gain_loss  :  Integer; 
jet_allow_gain  loss  :  Integer; 

procedure  jet_acct_calc_958( 
totalmojet  iss:  in  integer; 
totalmojetrcpt:  in  integer; 
openinginvjet:  in  out  integer; 
jetqtyavailable:  in  integer; 
tolerancejet:  out  boolean  )  is 

begin 

--  determine  if  monthly  jet  fuel  accountability  is  within  tolerance 

jetclosingbookbal  :=  opening  invjet  +  totalmojetrcpt  -  totalmojet  iss; 
jet_mo_gain  loss  "jetclosingbookbal  -  jetqtyavailable; 
jet_allow_gain  loss  :=  (opening  invjet  +  totalmojetrcpt)  / 100; 

If  abs(jet_mo_gain  loss)  >  abs(jet_allow_gain  loss)  then 

tolerancejet  :=  False; 
else 

tolerancejet  :=  True; 
End  If; 

--  adjust  opening  monthly  inventory  to  the  physical  quantity  on  hand 

opening  invjet  :=  jetqty  available; 

end  jet_acct_calc_958; 

end  jet_acct_calc_958_pkg; 
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—  File:  text_string_pkg.a 

—  Author:  Lawrence  A.  Kominiak,  Major,  USA 

—  Project:  Fuel  Automated  Subsystem  of  IC S3 
--  Date:  February  1998 

—  Description:  This  package  defines  the  textstring  type,  as  a 

string  of  1 00  characters. 


package  text_string_pkg  is 

subtype  textstring  is  string(1..100); 
end  text_string_pkg; 
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APPENDIX  G 


Bulk  Receipt  Interface 


Receipt  Document  Number: | 


Receipt  Quantity  (Gallons) : 


Fuel  Type 
\s  Diesel 

\/  Mogas 

-v  Jet 


OK 


Cancel 


Figure  1.  Bulk  Receipt  Graphical  User  Interface 
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Other  Receipt  Interface 


Source  Identification 


Source  Unit: 


Receipt  Quantity  (Gallons) : f 


Fuel  Type: 
\y  Diesel 

v  Mogas 

v^  Jet 


OK 


Cancel 


Figure  2.  Other  Receipt  Graphical  User  Interface 
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Bulk  Issue  Interface 


Issue  Document  Number 


Receiving  Unit 


Name  of  Receiver 


Issue  Quantity  (Gallons) 


Fuel  Type 
>/  Diesel 

v Hogas 

\s  Jet 


OK 


Cancel 


Figure  3.  Bulk  Issue  Graphical  User  Interface 
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Other  Issue  Interface 


Equipment  Identification 


Unit 


Name  of  Receiver: 


Issue  Quantity  (Gallons) : 


Fuel  Type 
v  Diesel 

v  Mogas 

ss  Jet 


OK 


Cancel 


Figure  4.  Other  Issue  Graphical  User  Interface 
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Fuel  On  Hand 


Diesel   (Gallons) 


as   (Gallons) : 


Jet    (Gallons) ; 


Figure  5.  Fuel  On  Hand  Interface 
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Fuel  Accountability 


Diesel  Tolerance 


Mogas  Tolerance 


Jet  Tolerance: 


Figure  6.  Fuel  Accountability  Interface 
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